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FOREWORD 


MAPSEP  (Mission  Analysis  Prograro  for  3olar  Electric  Propulsion) 
is  a computer  program  developed  by  Martin  Marietta  Aerospace,  Denver 
Division,  for  the  NASA  Marshall  Space  Flight  Center  under  Contract 
NAS8-29666.  MAPSEP  contains  the  basic  modes:  TOPSEP  (trajectory 

generation),  GODSEP  (linear  error  analysis)  and  SIMSEP  (simulation), 
rhese  modes  and  their  various  options  give  the  user  sufficient 
flexibility  to  analyze  any  low  thrust  mission  with  respect  to 
trajectory  performance,  guidance  and  navigation,  and  to  provide 
meaningful  system  related  requirements  for  the  purpose  of  vehicle 
design. 

This  volume  is  the  third  of  three  and  contains  a description  of 
the  internal  structure  of  MAPSEP  including  logical  flow.  Prior 
volumes  relate  to  analytical  program  description  and  to  operational 
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1.0  INTRODUCTION 


MAPSEP  (Mission  Analysis  Program  for  Solar  Electric  Propulsion) 
is  intended  to  provide  sufficient  flexibility  to  analyze  a variety 
of  problems  related  to  trajectory  performance,  guidance  and  naviga- 
tion. However,  since  low  thrust  technology  is  never  static,  future 
changes  are  expected  to  the  models  and  algorithms  contained  in  MAPSEP. 
This  volume,  along  with  the  program  listings,  is  intended  to  provide 
the  progrannaer /analyst  with  sufficient  information  about  MAPSEP 
structure  to  enable  him  to  make  suitable  modifications.  The  program 
itself  is  structured  such  that  computational  modules  are  as  self- 
contained  as  possible  thus  facilitating  their  replacement.  It  is 
highly  recommended  that  the  prograiraner/analyst  review  the  two  preced- 
ing volumes  (analytical  and  user's  manuals)  before  making  program 
changes  in  order  to  understand  the  reasoning  behind  many  of  the  models 
and  analysis  techniques  that  are  coded. 
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2.0  MACROLOGIC 

MAPSEP  is  composed  of  three  primary  modest  TOPSEP,  GODSEP  and 
SIMSEP  (Figure  2-1),  A fourth  primary  mode-  REFSEP,  is  actually  a 
submode  of  TOPSEP  In  a functional  sense.  In  addition,  a secondary 
mode,  TRAJ,  is  used  by  all  four  primary  modes  to  provide  integrated 
trajectory  information.  As  described  in  both  the  Analytic  and  User' 
Manuals,  the  primary  modes  each  serve  a specific  function  in  the  mis 
sion  and  system  design  sequence. 


Figure  2-1.  MAPSEP  Modes 


All  of  the  routines  and  structure  of  MAPSEP  are  constructed  to 
minimize  core  storage  (thus  reducing  turn-around  time  and  computer 
run  cost)  yet  retain  the  flexibility  needed  for  broad  analysis  re- 
quirements. Furthermore,  routines  are  built  as  modular  as  possible 
to  reduce  the  difficulties  in  future  mcdifications  and  extensions. 
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2.1  Input/Output 

The  user  Interface  or  input  to  MAPSEP  is  pripsarily  through 
cards  using  the  NAMELIST  feature,  with  supplementary  means  depend- 
ing  upon  mode  and  function  (Table  2-1) « All  modes  require  the 
$TRAJ  namelist  which  defines  the  nominal  trajectory  and  subsequent 


Mode 

INPUT 

OUTPUT 

Namelist  Formated  Tape 

Cards  (or  disc) 

Punched  Tape 

Cards  (or  disc) 

TOPSEP 

$TRAJ  None  STM 

$T0PSEP 

None  STM 

GAIN 

• 

GODSEP 

$TRAJ 

^GCJDSEP  Event  STM 

SGEVENT  Data  GAIN 

States 

Covariances  STM 

Guidance  GAIN 

SUMARY 

SIMSEP 

$TRAJ  None  STM 

SSIMSEP 

$GUID 

Statistics  STM 

GAIN 
SUMARY 

REFSEP 

$TRAJ  Print  STM 

Events 

None  STM 

TABLE  2-1,  MAPSEP  User  Input/Output 


mode  usage.  However,  if  recycling  or  case  stacking  is  performed 
it  is  not  necessary  to  Input  $TRAJ  again  unless  desired.  The  second 
namelist  required  for  each  mode  corresponds  to  mode  peculiar  input 
and  bears  the  name  of  that  particular  mode.  Additional  namelist, 
formated  cards,  and  tape  input  are  generally  optional.  Besides 
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the  standard  v>)c intout  associated  with  MAPSEF,  auxiliary  output  can 
be  obtained  which  will  facilitate  subsequent  runs. 

From  an  operational  viewpoint,  MAFSEP  employs  a maximum  of  six 
data  files  (Table  2-2).  Most  of  these  files  are  not  normally  saved 
from  run  to  run,  the  primary  exceptions  being  STMFILE  and  GAINFIL 
used  in  GODSEP. 


I/O  File 
Number 

File 

Mode  Usage 

TOPSEP  AND 
REFSEP 

GODSEP 

SIMSEP 

TAPE  3 

STM 

$TRAj' 

namelist 

$TRAJ  namelist, 
trajectory  and 
state  transition 
matrix  data 

$TRAJ 

namelist 

TAPE  4 

GAIN 

a-priori  covar- 
iances and 
filter  gain 
matrices 

$GUID 

namelists 

TAPE  5 

INPUT 

Input  data 

input  data 

input  data 

TAPE  6 

OUTPUT 

printout 

printout 

printout 

TAPE  7 

PUNCH 

- 

punched 

covariances 

punched 

statistics 

TAPE  8 

1 SUMMARY 

trajectory 

summaries 

event  data 
summaries 

$ SIMSEP 

namelist  I 

TABLE  2-2.  Data  Files 


2.2  Overlay  Structure 

The  structure  of  MAPSEF  is  organized  into  three  levels  of 
“overlays”  which  are  designed  to  minimize  total  computer  storage. 
At  any  given  time,  only  those  routines  which  are  in  active  use  are 


loaded  into  the  working  core  of  the  computer.  The  main  overlay 
(Figure  2-2)  is  always  in  core  and  contains  the  main  eKOcutive, 
MAPSEP,  and  all  utility  routines  that  are  common  to  the  three  modes. 
The  primary  overlays  contain  key  operating  routines  of  each  mode, 
that  is,  those  routines  which  are  always  needed  when  that  particular 
mode  is  in  use.  Also  included  as  a primary  overlay  is  the  data 

initialization  routine,  DATAM,  where  $TRAJ  namelist  is  read,  trajec- 

■ 

tory  and  preliminary  mode  parameters  are  initialized,  and  appropriate 
parameters  are  printed  out. 

The  secondary  overlays  contain  routines  which  perform  various 
computations  during  a particular  operational  sequence.  Included  are 
data  Initialization  routines,  analgous  to  DATAM,  which  operate  on 
mode  peculiar  input  and  perform  mode  initialization.  An  example  of 
core  usage  in  the  changing  overlay  structure  may  be  provided  by  a 
standard  error  analysis  event  sequence.  Error  analysis  initializa- 
tion is  performed  by  the  overlay  DATAG.  Transition  matrices  are  then 
read  from  the  STM  file,  the  state  covariance  is  propagated  to  a 
measurement  event,  and  the  overlay  MEAS  is  called,  which  physically 
replaces,  or  overlays,  the  same  core  used  previously  by  DATAG, 
Similarly  at  a guidance  event,  overlay  TSAJ  will  replace  MEAS  to 
compute  target  sensitivity  matrices  and  overlay  GUID  will  then 
replace  TRAJ  to  compute  guidance  corrections.  Overlay  switching  is 
performed  internally  and  is  transparent  to  the  user. 
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2.3  Subroutine  Hierarchy 

Each  major  overlay  is  supported  by  “i  number  of  routines,  some 
of  which  are  contained  in  that  overlay,  others  are  in  higher  over- 
layt'«  Figures  2-3,  2-4,  2-5,  2-6,  and  2-7  Illustrate  the  subroutine 
hierarchy  for  the  major  overlays  TRAJ,  TOPSEP,  GODSEP,  SIMSEP,  and  i 
HEFSEP,  respectively,  Multiple  calls  to  subroutines  and  entry  points 
are  not  shown,  but  may  be  found  in  the  detailed  subroutine  descrip- 
tions (Chaper  3).  The  hierarchies  also  do  not  distinguish  between 
routines  called  from  different  overlays. 

2.4  Blank  Common 

One  convenient  feature  of  the  GDC  6000  series  computer  (on 
t-ihich  MAPSEP  was  developed),  is  the. ability  to  specify  the  location 
in  core  where  blank  common  is  loaded.  This  allows  blank  common  to 
be  loaded  behind  the  longest  secondary  overlay  to  be  loaded  for  the 
current  mode.  Thus,  the  length  of  blank  common  may  be  adjusted 
merely  by  changing  the  amount  of  core  requested  for  the  job.  The 
resultant  convenience  factor  is  a core  saving  on  many  runs.  Wherever 
possible,  large  arrays  whose  dimensions  vary  as  a function  of  input 
parameters  are  loaded  in  blank  common.  Each  mode  in  its  data  overlay 
computes  the  locations  of  these  arrays  as  required  by  the  input. 

Each  mode  starts  using  blank  common  from  the  first  word,  and  defines 
for  the  TEAJ  overlay  the  first  available  word  of  blank  common  it 
may  access.  TRAJ  stores  all  information  evaluated  for  integration 
steps  in  blank  common.  For  an  example  of  the  disparity  in  blank 
common  lengths  required  for  different  runs,  the  sample  error 
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Figure  2-3.  TEAJ  Subroutine  Hierarchy 
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Figure  2-4.  TOPSEP  Subroutine  Hierarchy 
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DYN0 
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Figure  2-5.  G0DSEP  Subroutine  Hierarchy 
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GUIDE 
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Figure  2-5.  G0DSEP  Subroutine  Hierarchy  (Continued) 


12-A 


SIMSEP 
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Figure  2»6  SIMSEP  Subroutine  Hierarchy 
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Figure  2-7.  REFSEP  Subroutine  Hierarchy 
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analysis  Included  in  the  User's  Manual  (Vol,  II  Sec.  3.2.2)  requires 
51S4  decimal  or  12100  octal  words  of  blank  common.  The  same  run 
without  guidance  would  require  only  2304^0  (4400g)  words  of  blank 
common.  A T0PSEP  run  which  does  no  targeting  or  optimization  — 
merely  integrates  a reference  trajectoiry  --  requires  less  than  lOO^g 
words  of  blank  common. 

Ptog^am  Ijjading 

The  recommended  usage  of  MAPSEP,  which  also  minimizes  computer 
core  for  a given  mm,  is  to  load  only  those  overlays  and  related 
routines  which  are  neuessarv  for  the  run.  This  is  performed  by 
"satisfying”  from  a tiaster  library  file  which  contains  all  of  the 
MAPSEP  routines.  In  this  case  the  deck  necessary  to  run  MAPSEP 
consists  only  of  the  overlay  structure  and  the  input  data  decks. 

The  advantage  is  a direct  result  of  not  having  to  load  all  utility 
routines  in  the  main  overlay.  Instead,  the  utility  routines  are 
loaded  only  in  the  overlays  where  they  are  used.  In  addition,  blank 
common  can  easily  be  set  to  the  size  necessary  to  handle  specific 
mode  runs,  thus,  reducing  further  the  overall  core  requirements. 
Figure  2-8  illustrates  core  utilization  when  satisfying  from  a 
library  file. 

If  a library  file  is  not  used,  then  the  utility  routines  would 
be  loaded  after  the  I/O  buffers  in  Figure  2-8  and  before  the  primary 
overlays.  Although  the  core  required  for  each  primary  overlay  would 
be  smaller,  the  total  core  (utility  + primary)  would  be  greater. 
Furthermore,  blank  common  would  start  at  the  end  of  the  last  routine 
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(DATAS)  BO  that  the  overall  core  penalty,  if  the  entire  program  Is 
loaded  at  once,  would  be  approximately  3k  to  20k,  depending  upon 
the  operating  mode. 


For  those  users  who  can  vary  the  amount  of  blank  common  storage  in 
their  runs,  a guideline  to  estimate  the  total  MAPSEP  core  requirements 
is  given  below.  Blank  common  length  is  related  directly  to  the  dimen- 
sion of  the  dynamic  state  (NDIM)  used  in  transition  matrix  (STM)  com- 
putation, and,  the  total  augmented  (knowledge)  state  (NAUG) . The  values 
of  ’’program"  and  "blank  common"  must  be  added  to  compute  the  total  decimal 
core  for  a GDC  6500,  Other  operating  systems  must  scale  these  requirements 
appropriately. 


TOPSEP:  program  = 23400  „ 

blank  common  - 800  + 68(K)+(N) 


(N  - number  of 

control  para- 
meters) 


GODSEP:  program  = 23900  « 

blank  common  = 100  + 9 (NDIM) 

= 100  + 9 (NDIM) 2 

5 (NAUG) 2 

= 100  + 13  (NAUG)*^ 


(if  STM  created) 
(if  STM  used) 

(if  PDOT  used) 


SIMSEP:  program  = 39100 

blank  common  = 900  + N(KAUG)^ 


(N  = number  of 
guidance 
events) 


REPSEP: 


program  + blank  common  = 21000 
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2.6  Labeled  Connnons 

The  labeled  coromon  blocks  are  grouped  according  to  the  principal  overlays 
in  which  they  are  used:  MAPSEP,  TOPSEP,  GODSEP,  and  SIHSEP.  The  type  of  each 
variable  will  be  specified  as  follows: 


Type Designation 

Real  R 

Integer  I 

Logical  L 

Hollerith  R 

Assigned  G0  T(if  S 

Statements 

2 3 2 

All  units  will  be  in  km,  km/sec,  days,  radians,  kg,  km/sec  , or  km  /sec 
unless  otherwise  noted. 

The  following  index  of  common  blocks  is  intended  to  facilitate  their  Locatlbn 
by  the  reader. 


Connnon 

Principal  Overlay 

Page 

C0NICS 

MAPSEP 

17 

C0NST 

MAPSEP 

16-B 

CYCLE 

TOPSEP 

27 

DATAGI 

GODSEP 

35 

DATAGR 

GODSEP 

36 

DIMENS 

GODSEP 

36 

DYN0S 

SIMSEP 

51 

EDIT 

MAPSEP 

17 

ENC0K 

MAPSEP 

17 

EPHEM 

MAPSEP 

17 

GRID 

TOPSEP 

27 

GUIDE 

GODSEP 

38 

lASTM 

MAPSE7* 

18-A 

ISIMl 

SIMSEP 

51 

ISIK2 

SIMSEP 

52 

KSPCC5N 

GODSEP 

39 

LABEL 

GODSEP 

39 

LOCATE 

GODSEP. 

40 

L06IC 

GODSEP 

41 

MEASI 

GODSEP 

42 

MEASR 

SMSEP 

44 

PRINT 

TOPSEP 

28 
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Common 

Princioal  Overlay 

Page 

PRINT 

TOPSEP 

28 

PRINTH 

TOPSEP 

28 

PR^PI 

GODSEP 

46 

PR0PR 

GODSEP 

46 

SCHEDI 

GODSEP 

47 

SCHEDR 

GODSEP 

49 

SIMIAB 

SIMSEP 

52 

SIMl 

SIMSEP 

53 -A 

SIM2 

, SIMSEP 

53 -B 

ST0REC 

SIMSEP 

53 -C 

TARGET 

MAPSEP 

18  -B 

TIME 

MAPSEP 

19 

T0P1 

TOPSEP 

28 

T0P2 

TOPSEP 

32 

TRAJl 

MAPSEP 

19 

TRAJ  2 

MAPSEP 

22 

TRKDAT 

MAPSEP 

26 

TUG 

TOPSEP 

34 

W0RK 

MAPSEP 
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2.6.1  MAPSEP  Labeled  Commons 

Most  eoattnon  blocks  that  appear  in  MAPSEP  primarily  are  used  to  save  in- 
formation created  by  the  overlays  DATAM  and  TRAJ.  Other  common  blocks  that 
appear  in  MAPSEP  are  used  to  transmit  information  from  the  Conic  subroutines. 


a)  Conmion/O0NST/pro|ram_constants^ 


Name 

AU 

BIG 

ECEQ 

F0P 

F0V 


Dimension 

1 

1 

3x3 

1 

1 


'Jype 

R 

R 

R 

R 

R 


Definition 


149597893,  (km/AU) 

''0 

10^^ 

Transformation  matrix  from  Earth  equatorial 
to  Earth  ecliptic  coordinates 

10-^5 


10 


-25 


17 


Name 

Dimension 

Type 

Definition 

GHZER0 

1 

R 

Greenwich  Hour  angle  at  launch 

0MEGAG 

1 

R 

6,300388099  Earth  rotation  rate  in  rad/day 

PI 

1 

R 

3.14159 (PI) 

RAD 

1 

R 

57.29  . . . . (deg/rad) 

SMALL 

1 

R 

JO-20 

TM 

1 

R 

86400.0  (sec/day) 

b)  Common/C0KICS/Osculating 

conic  parameters 

Name 

Dimension 

Type 

Definition 

PV 

3 

R 

Eccentricity  unit  vector 

QV 

3 

R 

Unit  vector  orthogonal  to  WV  and  PV 

wv 

3 

R 

Angular  momentum  unit  vector 

RM 

1 

R 

Position  Magnitude 

VM 

1 

R 

Velocj.ty  Magnitude 

RDV 

1 

R 

r_*  V 

H 

1 

R 

Angular  momentum  magnitude 

1 

R 

Setni-latus  rectum 

c)  Cominon/ED IT/ future  modification  storage 


Name 

D5.mension 

Type 

Definition 

EDIT 

50 

R 

Miscellaneous  storage  array;  intended  for  use 
by  temporary  modifications  until  permanent 
storage  (labeled  and  blank  coratnon)  is  arranged. 

Gommon/ENC^/local  variables  for  subroutine  ENG0N  (see  PP.  534,  535) 


d)  Common/EPHEM/  ephemeris  constants 

Name  Dimension  Type  De finltion 


CECC 


4 X 10 


R 


Eccentricity  constants  of  the  planets 
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Name 

Dimension 

Type 

Definition 

CINC 

4 X 10 

R 

Inclination  constants  of  the  planets 

CMEAN 

4 X 10 

R 

Mean  anomaly  constants  of  the  planets 

C0l^G 

4 X 10 

R 

Longitude  of  the  ascending  node  constants  of 
the  planets 

C^GT 

4 X 10 

R 

Longitude  of  periapsis  constants  of  the  planets 

t 

CSAX 

2 X 10 

R 

Semi -major  axis  constants  of  the  planets 

DJ1900 

1 

R 

Julian  Date  of  January  0.5,  1900 

EMH 

15 

R 

Lunar  ephemeris  constants 

PLANET 

11 

R 

Hollerith  label  for  the  planets 

PMASS 

11 

R 

Planetary  gravitational  constants 

PRADIS 

11 

R 

Planetary  radii 

SMAS5 

1 

R 

Solar  gravitational  constant 

SPHERE 

11 

R 

Planetary  SOIs 

SRADIS 

1 

R 

Radius  of  the  sun 

SUN 

1 

R 

Hollerith  label  for  the  sun 

f)  Connnon/IASTM/ Positivity 

Matrix  'Parameters 

lASTbi 

1 

I 

Flag  designating  method  of  computing  targeting 
sensitivity  matrix 

IJH 

2x30 

I 

Array  of  flags  identifying  active  controls 

Lism 

6 

I 

Array  of  flags  identifying  active  targets 

THETA 

6x20 

R 

Sensitivity  of  final  state  to  changes  in  thrust 
controls 

PHI 

6x6 

R 

Sensitivity  of  final  state  to  changes  in  initial 
state  (STM) 
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£)_  GqjDm£n/TARfiET/Os£ula^ing_Conic_Condi^i£ns 

Name  Pimetision  Type  Definition 

VGA.  1 R Speed  at  closest  approach. 

GA.  I R Radius  of  closest  approach 

TCA  1 R Time  of  closest  approach 

BDT  1 R B • T 


BDR  1 

TSI  1 

VHP  1 

SMA  1 

ECC  1 

RING  1 

0MEGA  1 

S^^GA  1 

XMEM  1 

TA  1 

FI  1 

B 1 

BV  3 

TAIM  1 

SV  3 


R B • R 

R Time  of  sphere  of  influence  crossing 

R Hyperbolic  excess  velocity 

R Semi -major  axis 

R Eccentricity 

R Inclination 

R Longitude  of  the  ascending  node 

R Argument  of  periapsis 

R Mean  anomaly 

R True  anomaly 

R Hyperbolic  anomaly 

R B-vector  magnitude 

R B-vector 

R Theta  aim  (angle  between  the  B-vector  & Taxis) 

R S-vector  (unit  vector  in  direction  of  VHP  vector) 
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h)  J^oiiMon/ TIME/ time  parameters 


Name 

Dimension 

*^YPe 

Definition 

EP0CH 

1 

R 

Julian  Date  of  launch 

TCP 

1 

R 

Total  CP  time  required  to  integrate  a trajectory 

TDUR 

1 

R 

Trajectory  termination  time  from  launch  In 
seconds 

TEND 

1 

R 

Trajectory  termination  time  from  launch  in 
days 

TEW 

1 

R 

Trajectory  event  time  in  seconds 

TRCA 

1 

R 

Time  of  closest  approach 

TREE 

1 

R 

Trajectory  start  time  from  launch,  in  seconds 

TS0I 

1 

R 

Time  at  the  sphere  of  influence  of  the  target  body 

T3IART 

1 

R 

Trajectory  start  time 

TS10P 

1 

R 

Actual  trajectory  termination  time 

^ Cominon/TRAJi/trajectory 

propagation  parameters 

Name 

Dimension 

Type 

Definition 

ACC 

1 

R 

Integration  step-size  scale  factor 

ALPHA 

1 

R 

Inverse  semi-major  axis  of  the  reference  conic 

APERT 

3 X 12 

R 

Gravitational  acceleration  vectors  due  to  the 
perturbing  bodies 

APRIM 

3 

R 

Gravitational  acceleration  vector  due  to  the 
primary  body 

AT0T 

3 

R 

Total  differential  acceleration  vector 

B0DY 

3 

H 

Hollerith  label  of  the  planets  included  in  the 
integration 

DRMAX 

3 

R 

Maximum  deviation  from  the  reference  conic 

ENGINE 

20 

R 

Array  that  defines  the  thrust  and  power  subsystems 
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JWame  Dimension 
FRCA  1 

GMll  3 

CM12  . 3 

Qi2l  3 


GM22  3 

GT  3x3 

6IATJ1  3x3 

*GTAU2  3x3 

Gll  3x3 

612  3x3 

G22  3 x3 

QN0ISE  6x6 

RCA  1 

EPACC  3 

RST0P  1 

SCMASS  1 

SGMVAR  1 

STATED  8 


Type  Definition ; 

R Fraction  of  the  semi-major  axis  of  the  target 

planet  to  begin  closest  approach  tests 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Diagonal  matrix  of  inverse  correlation  times 

(first  process) 

R Diagonal  matrix  of  inverse  correlation  times 

(second  process) 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration  • 

R Matrix  of  partial  derivatives  for  transition 

matrix  integration 

R Matrix  of  process  noise 

R Local  variable  used  in  TRAJ 

R Acceleration  vector  due  to  radiation  pressure 

R Desired  stopping  radius 

R Initial  spacecraft  mass 

R Initial  spacecraft  mass  variation 

R First  three  elements  are  the  initial  position 

vector 
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Name 

Dimension 

Type 

TCP! 

1 

R 

THRACC 

3 

R 

THRUST 

10  X 20 

R 

TK0ISE 

6 

R 

UENC 

3 

R 

UENCM 

I 

R 

UP 

3 X 12 

R 

UREL 

3 X 12 

R 

URELM 

12 

R 

UTRUE 

3 

R 

UTRUEM 

1 

R 

VENC 

3 

R 

VEKCM 

1 

R 

VP 

3 X 12 

R 

VREL 

3 X 12 

R 

Definition 


Second  three  elements  are  the  initial  velocity 
vector 

Seventh  element  is  the  position  magnitude 

Eighth  element  is  the  velocity  magnitude 

CP  time  at  the  beginning  of  the  integration 

Acceleration  vector  due  to  thrust 

Array  used  to  define  the  operation  of  the 
thrust  subsystem 

First  three  elements  contain  thrust  noise  for 
the  first  process 

Second  three  elements  contain  thrust  noise  for 
the  second  process 

Reference  conic  position  vector 

Reference  conic  position  magnitude 

Position  vectors  of  all  the  bodies  included  in 
the  integration 

Position  vectors  of  the  spacecraft  relative  to 
all  the  bodies  considered  in  the  integration 

Magnitudes  of  UREL 

S/C  position  vector  relative  to  the  primary 
body 

S/C  position  magnitude  relative  to  the  primary 
body 

Reference  conic  velocity  vector 

Reference  couic  velocity  magnitude 

Velocity  vectors  of  all  the  bodies  considered 
in  the  integration 

Velocity  vectors  of  the  spacecraft  relative  to 
all  the  bodies  considered  in  the  integration 
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Nanit 

Dimens ion 

Type 

Definition 

VRELM 

12 

R 

Magnitudes  of  VREL 

VTRUE 

3 

R 

S/C  velocity  vector  relative  to 
body 

the  primary 

VTRUEM 

1 

R 

S/C  velocity  magnitude  relative 
body 

to  the  primary 

WP0WER 

1 

R 

Power  available 

XPRINT 

1 

R 

Print  interval 

ZK 

3 

R 

Direction  cosines  of  the  reference  star 

j)  Coromon/TRAJ2/Tra jectory  Flags 


Name 

Dimension 

Type 

Definition 

lAUGDC 

10 

I 

Array  of  flags  used  to  augment  the  state  for 
transition  matrix  or  covariance  integration 

ICALL 

1 

I 

Flag  used  to  initialize  TRAJ  or  to  initialize 
TRAJ  and  to  start  integration  or  to  continue 
integration  from  the  previous  time 

lENRGY 

1 

I 

Flag  that  determines  the  kind  of  power  sub- 
system 

IE  VENT 

1 

• S 

Local  variable  used  in  TRAJ 

lEVNTl 

1 

S 

Local  variable  used  in  TRAJ 

IEVNT2 

1 

s 

Local  variable  used  in  TRAJ 

IEVNT3 

1 

s 

Local  variable  used  in  TRAJ 

IE? 

1 

I 

Flag  used  to  locate  information  about  the 
ephemeris  body  (1  = Sun,  2 “Earth,^.,.) 

IM0DE 

1 

1 

Submode  designation  in  T0PSEP 

INIT 

1 

I 

MAPSEP  initialization  flag 

INTEG 

1 

I 

Flag  used  to  determine  the  type  of  equations 
to  be  integrated 
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Hame 

Dimension 

Type 

Be finition 

INTEG2 

1 ■ 

S 

Local  variable  used  by  TRAJ 

IKTEG3 

1 

S 

Local  variable  used  by  TRAJ 

IPFLAG 

1 

I 

Flag  used  co  designate  a control  phase  change 

IPHASE 

1 

S 

Local  variable  used  in  TRAJ 

IPHASO 

1 

s 

Local  variable  used  in  TRAJ 

IPHASl 

1 

s 

Local  variable  used  in  TRAJ 

IPHAS2 

1 

s 

Local  variable  used  in  TRAJ 

IPIACE 

1 

s 

Local  variable  used  in  TRAJ 

IPRI 

1 

I 

Flag  used  to  locate  information  about  the 
primary  body 

IPRINT 

1 

rr 

, 

Flag  used  to  manipulate  the  trajectory  print 
options ' 

IPRT 

1 

S 

Local  variable  used  in  TRAJ 

IPRTl 

1 

s 

Local  variable  used  in  TRAJ 

IRECT 

1 

I 

Flag  used  to  control  rectification 

ISTEP 

1 

I 

Number  of  integration  steps  taken 

ISTMF 

I 

I 

Flag  used  to  control  STM  file  use 

IST0P 

1 

I 

Flag  used  to  set  the  trajectory  termination 
logic 

ITEST 

1 

s 

Local  variable  used  in  TRAJ 

ITP 

1 

I 

Flag  used  to  locate  information  about  the 
target  body 

ITRAJ 

1 

I 

Local  variable  used  in  TRAJ 

JPFLAG 

1 . 

I 

Flag  used  to  designate  a primary  body  change 

JPHASl 

1 

s 

Local  variable  used  in  TRAJ 

JPHAS2 

1 

s 

Local  variable  used  in  TRAJ 

. » * 


Name 

Dimettsion  - 

Type 

2A 

Definition 

JPHAS3 

1 

S 

Local  variable  used  in  TRAJ 

JTEST 

1 

S 

Local  variable  used  in  TRAJ 

KST0P 

1 

s 

Local  variable  used  in  TRAJ 

KTEAJ 

1 

1 

Flag  used  to  designate  whether  to  test  for 
control  phase  changes 

KUT0FF 

1 

I 

Flag  used  to  designate  the  actual  trajectory 
stopping  criteria 

XFRINT 

1 

s 

Local  variable  used  in  TRAJ 

'L0CAL 

1 

s 

Local  variable  used  in  TRAJ 

I.0CDM 

1 

I 

Location  of  the  output  mass  variation  in 
blank  common 

L0CDT 

1 

I 

Location  of  the  temporary  derivatives  in 
blank  common 

L0CDY 

1 

I 

Location  of  the  nominal  derivatives  in  blank 
ccmimon 

3L0CET 

1 

I 

Location  of  the  integration  event  time  in 
blank  common 

L0CFI 

1 

I 

Location  of  the  F matrix  in  blank  common 

L0CF0 

1 

1 

Location  of  the  covariance  to  be  integrated 
in  blank  common 

L0CH 

1 

I 

Location  of  the  integration  step-size  in  blanl 
common 

L0CM 

1 

I 

Location  of  the  output  mass  in  blank  common 

L0CPR 

1 

X 

Location  of  the  integration  print  time  in 
blank  common 

L0GPT 

1 

I 

Location  of  the  actual  print  time  in  blank 
common 

L0CR 

1 

I 

Location  of  the  stored  position  magnitudes  in 
blank  common 

L0CS 

X 

I 

First  location  in  blank  common  that  can  be 
used  by  TRAJ 

Name 

Dimension 

Type 

Definition 

L0CT 

1 

I 

Location  of  the  stored  trajectory  times  in 
blank  common 

L0CTC 

1 

I 

Location  of  the  output  transition  matrix  or 
covariance  in  blank  common 

L0CTE 

1 

I 

Not  used 

L0GYG 

1 

I 

Location  of  the  nominal  integrated  solution 
in  blank  common 

L0CYP 

1 

I 

Location  of  the  intermediate  integrated 
solution  in  blank  common 

L55CYT 

1 

I 

Location  of  the  temporary  integrated  solution 
in  blank  common 

L0CX 

1 

I 

Location  of  the  trajectory  time  in  blank 
common 

MEQ 

1 

I 

Total  number  of  equations  to  be  integrated 

me'qs 

1 

I 

Dimensions  of  the  augmented  transition  matrix 
or  covariance 

MEQ8 

1 

I 

MEQ  minus  8 

HE  VENT 

1 

I 

Flag  used  to  set  event  detection  logic 

M0DE 

1 

I 

Flag  used  to  set  the  MAPSEP  mode  of  operation 
(T0PSEP,  G0DSEP,  SIMSEP) 

HPUN 

1 

I 

Number  of  bodies  included  in  the  integration 

MST0P 

1 

S 

Local  variable  used  in  TRAJ 

NB 

11 

I 

Planet  codes  of  the  bodies  to  be  included  in 
the  integration 

NB0D 

1 

. I 

Number  of  bodies  in  KB 

NEP 

1 

I 

Planet  code  of  the  ephemeris  body 

NLP 

1 

I 

Planet  code  of  the  launch  body 

H0ISED 

1 

I 

Flag  used  to  turn  off  the  noise  for  the 
simulation  mode 
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Name  Dimension 

Tvne 

Definition 

HPHSlSE 

1 

I 

Flag  to  test  for  primary  body  changes 

NPRI 

1 

I 

Planet  code  of  the  primary  body 

NPRINT 

1 

S 

Local  Variable  used  in  TRAJ 

NREGT 

1 

I 

Number  of  rectifications  executed 

NST0P 

1 

S 

Local  Variable  used  in  TRAJ 

NTP 

1 

I 

Planet  code  of  the  target  body 

NTPHAS 

1 

I 

Number  of  the  current  control  phase 

Conmon/riR^AT/_  _ 



Tracking  Data 

ELVMIN* 

1 

R 

Minimum  elevation  angle  for  tracking 

lOBS* 

1 

I 

Location  in  STAL(?C  of  astronomical  observatory 

KASDS* 

1 

I 

Number  of  formatted  print  schedule  cards  fol- 
lowing the  {fTRAJ  namelist 

NSTA* 

1 

I 

Number  of  S/C  tracking  stations 

SllALCfC 

3x9 

R 

Station  location  coordinates 

STARDC 

3x9 

R 

Star  direction  cosines 

* Variables 

exclusive 

to  the 

SEFSEP  mode 

1)  Common/WiRK/ 



Working  Storage 

w^Srk 

200 

R 

Array  used  as  local  variables  to  conserve 

core  locations 
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2*6*2  T0P5EP  Congaop  Blocks 


a)  _C0^I^^K/CYCI££TOKEP  Fla^ 

Name  Ditcension  Type  Definition 

ICYCLE  1 I Mode  cycle  flag. 

= 0,  Do  not  store  namelist  varia- 
bles on  disc, 

= 1,  Store  namelist  variables  on 
disc . 


b)  C0MM0N/GRID/ Blank  Common  Locations 


Name 

Dimension 

Tvoe 

Definition 

L0CE1 

1 

I 

Blank  common  location  of  the  target 
errors  associated  with  the  first 
step  of  the  control  grid. 

L0CE2 

1 

I 

Blank  common  location  of  the  target 
errors  associated  with  the  second 
step  of  the  control  grid. 

L0CEM1 

1 

I 

Blank  common  location  of  the  target 
error  indices  associated  with  the 
first  step  of  the  control  grid. 

L0CEM2 

1 

I 

Blank  common  location  of  the  target 
error  indices  associated  with  the 
second  step  of  the  control  grid. 

L0CEN 

1 

I 

Blank  common  location  of  tbe  nominal 
trajectory  target  errors  in  the  grid 
mode. 

L0CF1 

1 

I 

Blank  common  location  of  the  perform- 
ance indices  associated  with  the 
first  step  of  the  control  grid. 

L0CF2 

1 

I 

Blank  common  location  of  the  perform- 
ance indices  associated  with  the 
second  step  of  the  control  grid. 
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c)  _C^I0N/?RINT7Pr^tout 

Parameters 

_____ 

N/iui(; 

Dimension 

Tvue 

Definition 

CHTR0L 

20 

a 

Initial  values  of  all  possible  con» 
trols  other  than  thrust  control 

ETL0UT 

6 

R 

Target  tolerances  in  print-out  units. 

G0UT 

20 

R 

Performance  gradient  in  prlnt-out 
units. 

H0UT 

10x22 

R 

Perturbation  array  in  print-out 
units . 

KHTR0L 

20 

H 

Hollerith  names  of  controls  in 
CKT/R0L. 

S0UT 

120 

R 

Sensitivity  matrix  in  print-out 
units. 

TAR0UT 

6 

R 

Desired  target  values  in  printout 
units. 

{ 

1)  _C0MI^K/PMNMj^rint£u^Labels 

\ 

1- — Name 

Dimeaslon 

Type 

Definition 

lABELT 

6 

H 

Hollerith  names  of  chosen  targets. 

LABEL 

25 

H 

Hollerith  names  of  all  possible 
targets. 

e)  C0MM0N/T0P1/TOPSEP  Parameters  ^ 

Real  Variables 

Name 

Dimension 

. Type  _ 

Definition 

BT0L 

1 

R 

Tolerance  on  control  bounds. 

CHI 

1 

R 

In  plane  direction  angle  at 

injection. 

CNVRTT 

i 

6 

R 

Conversion  constants  from  Input 
units  to  internal  units  for  selected 
targets. 

<!  ) 

- 

0 


,4 


Name 

Dimension 

Type 

Definition 

CNVRTU 

20 

R 

Conversion  constants  from  input 
units  to  internal  units  for 
selected  controls. 

CTHETA 

1 

R 

Cosine  of  optimization  angle. 

DELVO 

1 

R 

Injection  AV  . 

DFMAX 

1 

R 

Maximum  increase  allowed  in  the 
cost  index  (F)  per  iteration. 

DPS  I 

6 

R 

Target  error  to  be  removed  during 
current  iteration. 

DP2 

1 

R 

Estimated  region  of  linearity  in 
the  control  space. 

E 

6 

R 

Target  errors  of  the  current  tra- 
jectory. 

EMAG 

1 

R 

Target  error  index. 

EPS0N 

1 

R 

Scalar  multiple  for  control  pertur- 
bations. 

ET0L 

6 

R 

Target  tolerances. 

ETR 

6x6 

R 

Array  of  target  errors  of  the  refer' 
ence  and  all  trial  trajectories 
evaluated  during  a single  iteration 

F 

,1 

R 

Performance  index  of  the  current 
trajectory. 

FTR 

6 

1 

R 

Vector  of  performance  indices  of 
the  reference  and  all  trial  trajec- 
tories evaluated  during  a single 
iteration. 

c 

20 

R 

Performance  gradient. 

GAMA 

1 

R 

Scale  factor  providing  the  best  con- 
trol change. 

gamma 

6 

R 

Vector  of  trial  trajectory  control 
change  scale  factors. 

Name 


. Dimensions 


Definition 


GTRIAL  5 

G 10x22 

HMULT  20 


0PTEND  1 

0SCALE  1 

PCT  1 

PRTDEB  20 

PSI  1 

PI  6 

P1P2  6 


P2  6 


S 6x20 


R One-dimensional  search  constants. 

R ’ ‘ Control  perturbation  array, 

R Vector  of  scalar  mulciples  of  the 

H array  to  determine  the  second 
step  of  all  controls  in  the  control 
grid. 

R Cosine  of  the  optimization  angle 

which  is  used  to  test  convergence 
in  the  targeting  and  optimization 
mode . 

R Scale  on  the  performance  index  when 

simultaneously  targeting  and  opti- 
mizing. 

R Percentage  of  the  target  error  to 

be  removed  during  an  iteration, 

■R  Vector  of  control  perturbations; 

summary  of  H array. 

R Out  of  plane  AV  direction  angle 

at  injection, 

R Vector  of  net  cost  values  for  the 

reference  and  all  trial  trajectories 
evaluated  during  a single  iteration, 

R Vector  of  combined  target  error 

indices  and  net  cost  values  for  the 
reference  and  all  trial  trajectories 
evaluated  during  a single  iteration. 

R Vector  of  target  error  indices  for 

the  reference  and  all  trial  trajec- 
tories evaluated  during  a single 
iteration. 

R Target  sensitivity  matrix, 

R Array  of  initial  states  for  the 

reference  and  all  trial  trajectories 
evaluated  during  a single  iteration. 


STATE 


8x6 
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Name 

Dimensicns 

Definition 

ST0L 

1 

R 

Test  variable  for  determining  line- 
arly dependent  columns  of  the 
weighted  sensitivity  matrix. 

TARGET 

6 

R 

Vector  of  desired  target  values. 

TARN0M 

6 

R 

Target  values  evaluated  for  the 
reference  trajectory. 

tarpar 

6 

R 

Target  values  of  the  most  recently 
generated  trajectory. 

1ART0L 

25 

R 

Vector  of  all  possible  target 
tolerances . 

TARTR 

6x6 

R 

Target  values  of  the  reference  and 
all  trial  trajectories  evaluated 
during  a single  iteration. 

TL0W 

1 

R 

Limit  of  target  error  index  below 
which  optimization  only  is  per- 
formed , 

TUP 

1 

R 

LimiT.  of  target  error  index  above 
which  simultaneous  targeting  and 
optimization  is  discontinued  and 
targeting  only  is  initiated. 

U 

20 

R 

Selection  of  controls  for  the 
specified  mode  run. 

uwate 

20 

R 

User  input  weights  on  controls. 

VPARK 

1 

R 

Circular  parking  orbit  velocity 
magnitude . 

WE 

6 

R 

Vector  of  target  weights. 

XMM 

1 

R ■ 

Mean  motion  of  s/c  in  parking  orbit 

PRO 

1 

R 

Radial  distance  at  injection. 

PING 

1 

R 

Geocentric  ecliptic  inclination  at 
injection 

PTO 

1 

R 

Time  of  injection 

) 


f)  _ C0M^N^T0P2^O]^^  p£T^eters  - Jnjteger  Variables. 


Katne 

Bimensions 

Tyoe 

Definition 

INACTV 

20 

I 

Vector  denoting  which  controls  are 
active,  on  bounds,  or  within  bound 
tolerance  regions. 

INSG 

1 

I 

Elag  set  when  S and  G are  input 
through  namelist. 

ITERAT 

1 

I 

Iteration  counter  (in  grid  mode 
ITERAT  indicates  the  index  of  the 
control  being  changed  for  a grid 
trajectory). 

IWATE 

1 

I 

Plag  designating  the  desired  con- 
trol weighting  scheme. 

JMAX 

1 

I 

Humber  of  mission  thrust  phases. 

JWATE 

1 

I 

Flag  designating  target  weighting. 

KMAX 

1 

I 

Number  of  thrust  controls  (THRUST 
(I,J))  chosen  to  be  elements  in 

u- 

K0NVRJ 

1 

I 

Convergence  flag. 

L55CCDC 

1 

1 

Blank  common  Ijcation  for  storage 
of  the  inner  products  of  the 
weighted  sensitivity  matrix  columns. 

L0CGM 

1 

I 

Blank  common  location  for  storage 
of  the  magnitude  of  the  weighted 
sensitivity  column  vectors. 

L0CDU 

1 

I 

Blank  common  location  of  the  total 
control  correction  vector  (not 
scaled  by  GAMA) . 

L0CDU1 

1 

I 

Blank  common  location  of  the  per- 
formance control  correction  vector 
(not  scaled  by  GAMA). 

L0CDU2 

1 

I 

Blank  common  location  of  the  con- 
straint control  correction  vector 
(not  scaled  by  GAMA), 

L0CEFM 

1 

I 

Blank  common  location  of  the  s/c 
masses  evaluated  at  event  times 
for  the  reference  and  all  trial 
trajectories  in  a single  iteration. 
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Name  Dimensions Type 

L0CSDU  1 I 

L0CSI*  1 I 

L0CSWG  1 I 

L0CSWS  1 I 

L0CTS  1 I 

L0CUL  1 I 

LOCWG*  1 I 

L0CWS*  1 I 

L0CWU  1 I 

L0CXR  1 I 


MIN  1 I 


Definition 


Blank  common  storage  location  for 
the  original  control  correction 
vectors  when  a number  of  controls 
must  be  dropped  during  an  iteration 

Blank  common  location  of  the  pseudo 
inverse  of  the  weighted  sensitivity 
matrix.  ^ 

Blank  common  storage  location  for 
the  original  weighted  performance 
gradient  when  a number  of  controls 
must  be  dropped  during  an  iteration 

Blank  common  storage  location  for 
the  original  weighted  sensitivity 
matrix  when  a number  of  controls 
must  be  dropped  during  an  iteration 

Blank  common  location  of  event 
times  for  the  reference  and  all 
trial  trajectories  in  a single 
iteration. 

Blank  common  location  of  minimum 
and  maximum  control  bounds. 

Blank  common  location  of  the 
weighted  performance  gradient. 

Blank  common  location  of  the 
weighted  sensitivity  matrix. 

Blank  common  location  of  the  con- 
trol weights. 

Blank  common  location  of  the  6- 
component  state  vectors  associated 
with  the  event  times  of  the  refer- 
ence and  all  the  trial  trajectories 
of  a single  iteration. 

Index  on  the  scale  factor  in  the 
GAMA  vector  which  provides  the 
best  control  correction. 


*May  be  in  compressed  form  if  controls  have  been  dropped  during  the 
iteration. 


34 


t 


Name 

Dimensions 

Tvoe 

Definition 

HPRINT 

10 

I 

Flag  designating  TOPSEP  print 
options . 

NMAX 

1 

I 

Maximum  number  of  iterations. 

NT 

1 

I 

Number  of  targets. 

NI'NP 

120 

I 

Vector  of  primary  bodies  associated 
with  the  event  times  of  the  refer- 
ence and  all  trial  trajectories  in 
a single  iteration. 

NTPH 

20 

I 

Vector  of  control  phase  numbers 
associated  with  the  event  times  of 
the  reference  an.’  all  trial  trajec- 
tories in  a single  iteration. 

KTR 

1 

I 

Trial  trajectory  counter  (NTR=1 
indicates  the  iteration  reference 
trajectory) . 

NTYPE 

1 

I 

Flag  designating  the  type  of  con- 
trol correction  to  be  made  during 
an  iteration. 

NU 

1 

I 

Number  of  controls. 

INJL0C 

I 

Index  locating  the  selected  injection 
controls  in  the  U vector. 

Connaon/TUG/ Tug  47_P_ar^n^ter_s 


AZMAX  1 

AZMIN  1 

RPl  1 

TGFUEL  1 

TUG  1 

TUGISP  1 

TUGWT-  1 


R 

R 

R 

R 

L 

R 

R 


Maxitnum  launch  azimuth  constraint 

Minimum  launch  azimuth  constraint 

Inner  parking  orbit  radius 

Full  capacity  of  tug  stage 

Flag  controlling  injection  computations 

Specific  impulse  of  tug  stage 

Dry  weight  of  tug  stage 


2.6.3  G^DSEP  Labeled  Commons 
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60DSEP  labeled  conmions  were  created  following  two  specific  guidelines 
as  much  as  possible  --  organization  first  by  variable  function,  and  second  by 
variable  type.  Organization  by  function  will  hopefully  simplify  understanding 
of  the  program  and  minimize  the  number  of  common  blocks  required  for  any  given 
subroutine.  Organization  by  type  is  to  facilitate  conversion  to  machines  which 
require  double  precision  for  many  real  variables,  or  which  merely  allocate 
different  numbers  of  bytes  of  core  for  real,  integer  or  logical  variables. 

Any  variable  for  which  further  descriptions  may  be  found  under  input 
description  is  denoted  *'(See  Input)"  and  refers  to  Reference  1,  Volume  II 
(User's  Manual)  Section  2.3. 


a)_  Cotmon/DATi^I/integer  Variables  Required  Only  for  UATA_  Overlay 


Name 

Dimension 

Type 

Definition 

C0NRD 

1 

L 

Used  for  input  only 

=F,  set  a priori  control  equal  to  a priori 
knowledge 

=T,  assume  a priori  control  is  read  in  namelist 
§G0DSEP 

lAUG 

50 

I 

Parameter  augmentation  control  (see  Input) 

IGF0KM 

1 

I 

' =0,  input  control  uncertainties  packed 
=1,  input  control  uncertainties  unpacked 
(see  Input) 

IPF0RH 

1 

I 

5=0,  input  knowledge  uncertainties  packed 
=1,  input  knowledge  uncertainties  unpacked 
(see  Input) 

MAXAUG 

1 

T 

Maximum  length  allowed  for  augmented  state 
vector  (including  S/C  state)  allowable  maximum 
governed  only  by  available  core  and  dimensioned 
lengths  of  LIST  (see  Common/DIMENS/)  and  AUGIAB 
(see  Common/IABEL/ ) arrays 
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Name  Dimension  Type  Definition 


MAXDIM 

5 

I 

Maximum  allowable  input  dimensions  on  individ- 
ual state  vector  partitions  corresponding  to 
actual  dimensions  of  covariance  partitions 
in  subroutine  NMLIST 
MAXDIM(l)  = 6 (S/C  state) 

MAXDIM(2)  = 10  (solve-for  parameters) 

MWCDIM(3)  = 13  (dynamic  consider) 

MAXDIM(4)  = 15  (measurement  consider) 

MAXDIM(5)  = 10  (ignore) 

XIAB 

50 

H 

Parameter  Hollerith  labels  corresponding  to 
parameters  as  ordered  for  lAUG  (see  Input, 
lAUG) 

b)  Coinmon/DATAGR/Rea  1 variables  required  only  for  DATA  overlay 

D0PCNT 

1 

R 

Average  number  of  doppler  (range-rate)  measure- 
ments taken  per  day  during  tracking  arcs 
(see  Input) 

SI6RS 

1 

R 

Standard  deviation  in  spin  radius  for  equiv- 
alent station  location  errors  (see  Input) 

SIGL0N 

1 

R 

Standard  deviations  in  longitude  for  equiv- 
alent station  location  errors  (see  Input) 

SIGZ 

1 

R 

Standard  deviation  in  z-height  for  equivalent 
station  location  errors  (see  Input) 

C0RL0N 

1 

R 

Station- to-station  longitude  correlation  for 
equivalent  station  location  errors  (see  Input) 

c)  Common/DINE NS /Covariance  dimensions  and  sub-block  locators 


LIST  30  I List  of  parameters  included  in  augmented 

state  vector  in  the  order  in  which  they  appear 
in  the  covariance.  LIST  is  used  for  locating 
elements  of  covariance  and  transition  matrices 
xshere  necessary.  All  parameters  augmenteci  are 
denoted  by  parameter  number  used  for  Input 
(see  lAUG  in  Input) . S/C  state  components  - 
Xjy,z,x,y,2  - are  denoted  by 
respectively. 

LISTDY  20  I List  of  dynamic  parameters  included  in  transi- 

tion matrices  read  from  STM  file.  Parameter 
numbering  and  ordering  conventions  are  the 
same  as  for  LIST  (above) . 


Name 
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Definition 


L0CAUG 

L0CBLK 

L0CL&B 

MUG 

MUGSQ 

NBLK 

NDIM 


Dimension  Type 

5jc5  I 


5x5  I 


5 


I 


1 I 

1 I 


Array  of  locations  of  first  word  of  covariance 
partitions  within  complete  augmented  covariance 
matrix.  For  example,  since  covariance  blocks 
are  ordered,  S/C  state,  solve-for  parameters, 
dynamic  consider,  measurement  consider,  ignore 
parameters  f 

— L0GAUG(1,3)  locates  the  first  word  of  the 
sub-block  of  correlations  between  the  S/C 
state  and  the  dynamic  consider  parameters. 

Used  for  locating  first  word  of  covariance 
partitions  when  sub-blocks  are  stored  separately 
but  contiguously  in  core  (for  further  explan- 
ation see  AUGCNV  Sec  3.3.1  and  PPAK  Sec  3.3.31) 

Locates  within  LIST  and  AUGLAB  arrays  the 
beginning  of  the  parameter  (LIST)  or  label 
(AUGLAB)  lists  for  the  five  augmented  state 
vector  partitions 
(1)  = 1 

(2)  = beginning  of  solve-for  parameters 

(3)  = beginning  of  dynamic  consider  parameters 

(4)  = beginning  of  measurement  consider  parameters 

(5)  = beginning  of  ignore  parameters 

Dimension  of  augmented  state  vector 

Total  number  of  elements  in  augmented  covar- 
iance matrix  (=KAUG**2) 


1 


5 


I Total  number  of  elements  required  to  store 

individual,  packed  covariance  partitions  (for 
further  explanation,  see  AUGCNV,  Sec  3.3.1, 
and  PPAK,  Sec  3,3.31) 

I Dimensions  of  individual  state  vector  partitions 

(1)  = S/C  state 

(2)  = solve-for  parameters 

(3)  = dynamic  consider  parameters 

(4)  = measurement  consider  parameters 

(5)  = ignore  parameters 

I Number  of  dynamic  parameters  (includfng  S'C 

state)  used  included  in  state  transition 
matrisies  on  Sllti  file. 


NPHSTM 


1 


38 


Name Dimension Type Definition  

d)  Common/GUIDE/Guidance  Related  Variables  Not  Specifically  Used  for  Scheduling 
or  Propagation 


BliRNP 

4 

C0NWT 

5 

DELAY 

1 

S 

6x5 

SMAT 

15 

TARWT 

3 

TBURN 

1 

TX3ST0P 

1 

T0FF 

1 

T0N 

1 

UMAX 

5 

VARDV 

4 

VARMAT 

18 

IP(i(L 

1 

IREAD 

1 

NC0N 

1 

R Guidance  interval  parameters 

(1)  - vehicle  mass  at  guidance  start 

(2)  - thrust  acceleration  magnitude  at  guidance  start 

(3)  - vehicle  mass  at  guidance  end 

(4)  - thrust  acceleration  magnitude  at  guidance  end 

R Control  weighting  factors, following  correspondences 

assumed 

(1)  - acceleration  magnitude 

(2)  - cone  angle 

(3)  - clock  angle 

(4)  - cutoff  time 

(5)  - startup  time 

R Guidance  delay  time  for  current  maneuver 

R Guidance  sensitivity  matrix  of  S/C  state  at  cutoff 

time  with  respect  to  controls 
R Sensitivity  matrix  of  target  parameters  w.r.t. 

control  parameters 
R Target  parameter  weights 

R Length  of  burn  interval  for  current  guidance  maneuver 

R Stop  time  for  integrator  if  either  guidance  or  predic 

tion  requires  integration  of  transition  matrices  to 
some  time  past  TFINAL.  For  both  guidance  and  predic- 
tion TDUR  (Common /TIME/)  is  defined  according  to  the 
maximum  of  TGST0P  and  TFINAL 
R Cutoff  time  for  current  guidance  maneuver 

R Execution  time  for  current  guidance  maneuver 

R Maximum  (KS)  control  corrections  allowed 

R Array  of  variances  of  delta -V  execution  error 

parameters  2 

(1)  - magnitude  proportionality  (1007,  ) 

(2)  - magnitude  resolution  (km^/s^) 

(3)  - in-ecliptic  pointing  (rad^) 

(4)  - out-of-ecliptic  pointing  (rad^) 

R Variation  matrix,  sensitivity  of  target  conditions 

with  respect  to  S/C  state  at  cutoff  time 

I Guidance  policy  flag  for  current  guidance  event 

(see  IGPCfL,  Input) 

I Read  policy  for  namelist  $GEVENT  for  current 

guidance  event  (see  IGREAD,  Input) 

I Number  of  controls  to  be  used  for  low  thrust 

guidance 


1 
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e)  Conmon/KEPC0N/Transformations  Required  l-Then  Ephemeris  Body  State  is  in 
Keplerian  Elements 


Eame 

Dimension 

Tvne 

Definition 

DXDKAF 

36 

R 

Trans fomriat ion  from  Keplerian  to  cartesian 
elements  for  ephemeris  body  evaluated  at 
cutoff  time  of  guidance  event 

DXDKBR 

36 

R 

Transformation  from  Keplerian  to  cartesian 
ele-.ients  for  ephemeris  body  evaluated  at 
guidance  maneuver  execution  time 

DXDKST 

36 

R 

Transformation  from  Keplerian  to  cartesian 
elements  for  ephemeris  body  evaluated  at  time 
TSTM,  the  current  trajectory  time  as  defined 
by  the  STM  file 

LISTPH 

6 

I 

List  of  ephemeris  parameter  numbers  for 
whichever  set  (Keplerian  or  cartesian)  is 
augmented  to  the  S/C  state 

E 


u 


f)  Cotnmon/LABEL/Labeling  Arrays 


AUGIAB  30  H 


EVIAB  2x5  H 


J0BLAB  10  H 


MESIAB  2x10  H 


PGLAB  5x5  E 


Array  of  parameter  labels,  AUGLAB(I)  contains 
a six- character  Hollerith  label  which  corres- 
ponds to  the  parameter  number  in  LIST (I) 

(see  LIST,  Comraon/DIMENS/) 

Array  of  event  labels 

(1.1) , (2,1)  - propagation 

(1.2) , (2,2)  - eigenvector 

(1.3) , (2, 3)  - thrust 

(1.4) , (2,4)  - guidance 

(1.5) , (2, 5)  - prediction 

Run  identifying  label  input  through  namelist 
$G0DSEP  and  printed  at  the  top  of  the  first 
page  of  each  measurement  and  event  print 

Array  of  measurement  labels  used  for  printing 
in  HEASPR  (see  MEASPR,  sec,  3.3.22  for  further 
details) 

Array  of  labels  for  control  covariance  sub- 
blocks, used  primarily  for  punching.  Upper 
triangle  elements  are  identical  to  those  names 
used  for  control  uncertainty  input  (CXSG,CXUG 
etc).  Lower  triangle  blocks  correspond  to 
transposes  of  upper  triangle  blocks  --  their 
labels  are  so  denoted  by  an  added  dollar  sign 
(C3£SG$,CXUG$,  etc). 


Kame 


Dlmensioo 
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Definition 


Ix£e 

PX^B  5x5  H Array  of  labels  for  knowledge  covariance 

sub-blocks.  Upper  triangle  elements  are 
identical  to  those  names  used  for  knowledge 
uncertainty. input  (CXS,  CXU,  etc).  Lower 
triangle  blocks  correspond  to  transposes  of 
upper  triangle  blocks  --  their  labels  are 
so  denoted  by  an  added  dollar  sign  (XS$, 
CXUS,  etc). 

VECLAB  2x5  H Array  of  word  labels  for  augmented  state 

vector  partitions 

(1.1) , (2,1)  - state 

(1.2) , (2,2)  - solve-for 

(1.3) ,  (2,3)  - dynamic 

(1.4) , (2,4)  - measurement 

(1.5) ,  (2,5)  - ignore 


g)  Common/L0CATE/Parameters  Used  To  Locate  Matrices  In  Blank  Common 


p 

1 

I 

Location  of  current  knowledge  covariance  in 
blank  common 

PG 

1 

I 

Location  of  current  control  covariance  in  blank 
common,  if  guidance  events  are  included 

PffLS 

1 

I 

Location  of  weighted  least  squares  reference 
covariance  in  blank  common  if  using  sequential 
weighted  least  squares  OD  algorithm 

PHI 

1 

I 

Location  of  complete  augmented  transition 
matrix  in  blank  common  if  not  using  covariance 
integration  option 

PTEMP 

1 

I 

Location  in  blank  common  of  temporary  working 
area  the  size  of  the  augmented  covariance 
(and  therefore  transition  matrix,  also) 

By  convention  the  output  of  C0VP  is  always 
located  by  PTEMP 

PL0CAL 

1 

I 

Location  in  blank  common  of  local  working 
storage  area  the  size  of  the  augmented  co- 

variance  matrix.  This  area  is  intended  to  be 
used  locally  within  a subroutine  and  not  to  be 
saved  for  use  in  another  subroutine. 


Name 

Dimension 

Type 

41 

X 

Definition 

H 

1 

I 

Location  of  observation  matrix  in  blank  common 

GAIN 

1 

I 

Location  of  gain  matrix  in  blank  common 

FGl 

1 

I j 

Locations  of  four  augmented  covariance 

PG2 

1 

I 

size  blocks  in  blank  common  used  for 
guidance  computations 

h)  Conjmon/L0GIC/IjOgical  Variables 


I 


CHEKBR 

DYN0IS 


GAINCR 


GENC0V 


MESH 


PD0T 


10 

1 


1 


1 


1 


1 


L Array  of  flags  controlling  checkout  print 

options  (see  Input) 

L Flag  controlling  computation  of  effective 

process  noise 

=*TRUE.,  compute  effective  process  noise 
=*FALSE*,  do  not  compute  effective  process 
noise 

L Flag  controlling  creation  of  GAIN  file  (TAPE  4) 

=»TRUE',  create  GAIN  file 
=*FAlSE*j  do  not  create  GAIN  file 

L Flag  indicating  if  current  run  is  generalized 

covariance  run 

=*TRUE*,  generalized  covariance  run 
-•FAISE’j  not  ger.eralized  covariance  run 

L Flag  indicating  if  scheduled  trajectory  time 

can  be  meshed  with  some  time  print  on  the 
STM  file  within  specified  forward  and  backward 
tolerances  (T0LF0R, T0LEAK, common/ PR0PR/) 

=*TRDE*,  meshing  successful 
= *FALSE*,  Tnashing  not  successful 

L Flag  controlling  covariance  propagation 

-•TRUE*,  propagate  by  integration  of  covariance 
variational  equations 

=*FALSE.,  propagate  by  state  transition  matrices 


J 


1 
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t?ame 

Dimension 

Type 

Definition 

PRINT 

1 

L 

Flag  controlling  measurement  print 

=.TRUE*‘  causes  full  print  before  and  after 
current  measurement 

”, FALSE, , suppresses  measurement  print  except 
for  that  on  SUMIIARY  file  if  summary  print 
requested  (see  SUMARY,  coninion/L0GIC/) 


PKHC0V 

5 

L 

Array  of  flags  controlling  print  options  on 
covariance  sub-blocks  (see  Input) 

PRNSTM 

5 

L 

Array  of  flags  controlling  print  options  on 
transition  matrix  partitions  (see  Input) 

PR0PG 

1 

L 

Flag  controlling  propagation  of  control 
covariance 

=,TRUE.,  propagate  control  simultaneously 
with  knowledge  covariance 

=,FAIjSE,  , do  not  propagate  control  covariance 

PUNCHE 

5 

L 

Array  of  flags  controlling  punching  of  complete 
augmented  state  uncertainties  for  different 
event  types  (see  Input). 

SCHFTL 

1 

L 

Flag  controlling  termination  or  continuation 
of  run  after  mesh  failure  on  STM  file 
if  MESH  = .TRUE.,  SCHFTL  has  no  effect, 
if  ^ESH  = .FALSE.,  then  SCHFTL  = .TRUE.,  will 
terminate  error  analysis  processing,  while 
SCHFTL  = .FALSE.,  will  result  in  diagnostic 
print  and  the  currently  scheduled  measurement 
or  event  will  not  be  processed 

SUMARY 

1 

L 

Flag  controlling  SUMMARY  file  print 
=*TRUE.,  prints  summary  information  for  all 
measurements  on  SUMMARY  file  (TAPE  8) 

=, FALSE,,  no  summary  print 

VRNIER 

1 

L 

. Flag  indicating  if  current  guidance  event  is  a 

vernier  (=.TRUE.)  or  a primary  (=. FALSE*) 


i)  Gommon/MEASl/Measurement  Related  Integer  Variables 


IA0GPH 


1 


I 


Parameter  number  of  first  ephemeris  element 
as  used  for  input  (See  lAUG, Input). 


1 


4 


1 


4 


+ 


i 1... 
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name 

Dimension 

Type 

Definition 

lAUGST 

1 

I 

parameter  number  for  first  station  location 
parameter 

IBAZEL 

1 

I 

Parameter  number  for  first  azimuth-elevation 
angle  bias  parameter 

IBDIAM 

1 

I 

Parameter  number  for  apparent  planet  diameter 
measurement  bias 

IBRAD 

1 

I 

Parameter  number  for  right  ascension/declination 
measurement  biases 

IB STAR 

1 

I 

Parameter  number  of  first  star-planet  angle 
measurement  bias 

IB2WAY 

1 

1 

Parameter  number  of  first  2-^ay  DSN  measure- 
ment bias  term 

IB3WAY 

1 

I 

Parameter  number  of  first  3-way  DEN  measure- 
ment bi'At-j  term 

IDATYP 

1 

I 

Leading  digit  of  decoded  measurement  type 

“1,  ground-based  range-race 

=2,  ground -base  range 

«3,  azimuth -elevation  angles 

=4,  on-board  optics  - star-planet  angle 

=5,  on-board  optics  - apparent  planet  diameter 

IDMAX 

1 

I 

Maximum  number  allowed  to  be  assigned  to  a 
dynsmic  parameter.  All  parameter  numbers  leas 
than  or  equal  to  IDMAX  are  assumed  to  cori'e- 
spond  to  dynamic  parameters.  Those  greater  than 
IDMAX  are  assumed  to  be  measureoiont  parameters. 

lEPHEM 

1 

I 

If  any  ephemerls  elements  included  in  aug- 
mented state  vector,  denotes  form 
=0,  time-evolving  cartesian 
=1,  stationary  cartesian 
=2,  stationary  Keplerian 

IGAIN 

1 

I 

Flag  indicating  gain  computation  algorithm 
to  be  used  (see  Input) 

ISTAl 

1 

I 

Parameters  used  in  decoding  measurement  codes. 

ISTA2 

1 

I 

For  further  explanation  see  0BSERV,  sec.  3.3.26. 

ISTA3 

1 

I 

MAX  ST  A 

1 

I 

Maximum  number  of  stations  for  which  station 
location  errors  and  range  and  range-rate  biases 
can  be  augmented  to  the  state  (maximum  number 
accommodated  by  lADG  array).  See  0BSERV,  sec, 
3.3,26  for  further  explanation. 
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Kaiae 

Dimension 

Type 

Definition 

NEPHEL 

1 

I 

Number  of  epheraeris  elements  augmented  to 
state  for  current  error  analysis  run 

NR 

1 

I 

Dimension  of  obsev.*vation  vector  for  mea- 
surement currently  being  processed 

NS0LVE 

1 

I 

Total  number  of  variables  and  parameters  being 
estimated  by  OD  algor ithn  (nuaiber  of  S/C  state 
variables  plus  number  of  solve  for  parameters) 

NST 

1 

I 

Total  number  of  ground  stations  defined  in 
STAL0C  array  for  possible  use  in  ground-based 
observations  (maximum  9).  For  further  expla- 
nation see  NST  and  STAL^C,  in  Input. 

j)  Conunon/MEASR/Measurem.3nt  Related  Real  Variables 


AZMUni 

1 

R 

Azimuth  angle  in  degrees  from  station  ISTAl 
(0BSERV,  sec  3.3.26)  computed  only  for  azimuth- 
elevation  angle  measurements 

AZMTH2 

1 

R 

Azimuth  angle  in  degrees  from  station  ISTA2 
(0BSERV,  sec  3.3.26)  computed  only  for  azimuth- 
elevation  angle  measurements  and  if  ISTA2  ^ 0. 

BDYDEC 

1 

R 

Declination  angle  of  the  target  body  (in 
degrees)  as  seen  from  the  designated  observatioi 

BDYRTA 

1 

R 

Right  ascension  angle  of  the  target  body  (in 
degrees)  as  seen  from  the  designated  observatory 

ELEV 

1 

R 

Elevation  angle  in  degrees  from  station  ISTAl 
(0BSERV,  sec  3.3.26)  computed  for  all  grcund- 
based  measurements 

ELEV2 

1 

R 

Elevation  angle  in  degrees  from  station  ISTA2 
(0BSERV,  sec  3.3.26)  computed  for  all  ground- 
based  measurements  when  ISTA2  ^ 0 

R 

16 

R 

Dual  purpose  measurement  noise  matrix.  Before 
the  knowledge  covariance  is  updated  at  a 
measurement,  R is  the  covariance  of  the  nffia- 
surement  white  noise.  After  the  knowledge 
covariance  is  updated,  R is  the  measurement 
residual  matrix.  For  further  explanation  see 
Vol.  I,  Analytical  Manual,  sec  6.4. 

RANGE 

1 

R 

Range  in  km  from  station  ISTAl  (0BSERV,  sec 
3.3.26)  computed  for  all  ground-based  mea- 
surements 

1 


1 


i 
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Name 

Dimension 

Type 

Definition 

RMGE2 

1 

R 

Range  in  km  from  station  ISTA2  (0BSERV,  sec 
3.3.26)  computed  for  all  ground-based  n^asure- 
ments  if  IS1A2  >0 

RSATE 

1 

R 

Range-rate  in  km/s  from  station  ISTAl  (0BSERV, 
sec  3.3.26)  computed  for  doppler  (range-rate) 
measurements  only 

RBATE2 

1 

R 

Range- rate  in  km/s  from  station  ISTA2  (0BSERV, 
sec  3.-.rl6)  computed  for  doppler  (range-rate) 
measurements  only*  and  only  if  ISTA2>0 

SCDEC 

1 

R 

S/C  geocentric  equatorial  declination  in 
degrees,  confuted  for  all  ground-based  measure- 
ments 

SCGL0N 

1 

R 

S/C  geocentric  equatorial  longitude  in  degrees, 
computed  for  all  ground-based  measurements 

ST4L0C 

3x9 

R 

Array  of  station  locations  in  cylindrical 

equatorial  coordinates 

STAL0C  (1,1)  = spin  radius  (km) 

STAI^  (2,i)  = longitude  (degrees  externally, 
radians  internally) 

STAI45C  (3,1)  = height  (km)  (See  Input) 

STARDC 

3x9 

R 

Array  of  ecliptic  star  direction  cosines  (or, 
equivalently,  unit  vectors  in  star  directions) 
See  Input 

STPANG 

3 

R 

Array  of  star-planet  angle  measurements  in 
degrees,  computed  only  fox  star-planet  angle 
measurements . 

(1) -angle  between  planet/ target  body  and 
star  ISTAl  (0BSERV,  sec  3.3.26) 

(2) ,  (3)  - same  as  (1)  above  only  for  s tarsi 
ISTA2  and  ISTA3  respectively 

VARMES 

10 

R 

Array  of  measurement  white  noise  variance. 

Default  values  and  input  are  by  standard 
deviations  in  array  SIGMES  (see  Input) 
internal  values  require  units  conversion 
as  well  as  squaring,  2 2 

(1) ,  2-way  doppler  (to  /s  ) 

(2)  i 2-way  range  (km^)  2 2 

(3) ,  3-way  equivalent  frequency  drift  (km  /s  ) 

(4)  , 3- way  range  (km^)  „ 

(5)  , aaitnuth  angle  (rad*^) 


Name 


Dimension 


Definition 


IZEe 

2 

(6)  , elevation  angle  (rad  ) 2 

(7)  , on-board  optics-star-planet  angle  (rad"*)  2 

(8) ,  on-board  op tics -apparent  planet  diameter  (rad  ) 

(9) ,  on-board  optics-center  finding  uncertainty2 

in  conjunction  with  star-planet  angle  (rad  ) 

(10)  , not  used 


>^)  Coimnon/PR0PI/Propagation 

Related  Integer  Variables 

1PR0P 

1 

I 

Flag  controlling  print  options  with  propagation 
event 

=0,  no  print 

=1,  print  standard  deviations  and  correlation 
coefficients  for  S/C  state  vector  only 
=2,  full  eigenvector  print 

lAPTER 

1 

I 

not  used 

LBUEN 

1 

I 

not  used 

LDEIAY 

1 

I 

not  used 

1)  Comnion/PR0PR/Propagation 

Related  real  Variables 

EPTAU 

3x2 

R 

Array  of  correlation  times  for  thruster  process 
noise  termsj EPTAU(I, J)  represents  correlation 
time  for  process  whose  variance  is  EPVAR (I, J) 
(See  Below) 

EPVAR 

3x2 

R 

Array  of  variances  for  thruster  noise  processes. 
All  elements  are  used  for  covariance  integration, 
while  only  elements  EPVAR (1,1)  are  used  in  the 
effective  process  noise  model. 

Primary  processes 

(1.1) ,  magnitude  variance 

(2.1) ,  cone  angle  pointing  variance 

(3.1) ,  clock  angle  pointing  variance 

Secondary  processes 

(1.2) ,  magnitude  variance 

(2.2) ,  cone  angle  pointing  variance 

(3.2) ,  clock  angle  pointing  variance 

GMASS 

1 

R 

not  used 
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Name 

Dimension 

Type 

Definition 

GTBURN 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  evaluat« 
at  the  beginning  of  a guidance  burn  interval. 

GTDLAY 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  evaluate! 
at  cutoff  time  of  guidance  interval. 

GTSAVE 

3x3 

R 

GT  matrix  (See  DYN0,  Section  3.3.10)  saved  at 
beginning  of  each  propagation  interval  during 
normal  knowledge  propagation. 

Q 

6x6 

R 

Effective  process  noise  matrix  computed  in 
DYN0  (Section  3,3.10). 

SAVACC 

3 

R 

Thrust  acce^leratipn  magnitude  for  bias,  and 
first  and  second  noise  processes . 

TG 

1 

R 

Input  epoch  for  control  uncertainties  if 
different  from  epoch  for  knowledge  uncertain- 
ties. 

T0LBAK 

1 

R 

Backward  tolerance  on  reading  transition 
matrices  from  STM  file. 

T^LF0R 

1 

R 

Fotrward  tolerance  on  reading  transition 
matrices  from  STM  file. 

XG 

6 

R 

not  used. 

m)  Conraion/SCHEDI/Scheduling  Related  Integer  Variables 


IGP0L  20 


IGEEAD  20 


I 


I 

I 


Array  of  guidance  policy  control  flags 

=0,  no  maneuver,  print  control  uncertainties 

=1,  target  to  cartesian  state,  XYZ,  at  time 
specified  by  TIMFTA 

=2,  two  variable  B-plane  targeting  (B»T,  B*R) 

=3,  three  variable  B-plane  targeting  (B*T, 

'^SOI> 

=4,  closest  approach  targeting  (radius  of 
closest  approach,  inclination,  time  of 
closest  approach), 

=5,  XYZ  targeting,  variable  time  of  arrival. 

Array  of  guidance  event  read  control  flags. 

(See  Input) 

Not  used. 


ITP(?L 


20 


1 
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Name 

Dimension 

Definition 

MC0DE 

50 

I 

* 

Array  of  measurement  (and  propagation  event) 
codes  used  in  scheduling  (See  SCHEDj  Section 
3.3.36).' 

MC0UKT 

1 

I 

Measurement  counter,  total  cumulative  number 
of  measurements  processed. 

MESEVN 

1 

I 

Current  measurement  or  event  code. 

MNEXT 

1 

I 

Code  for  measurement  (or  propagation  event) 
to  be  scheduled  after  the  current  event. 

MPCNTR 

11 

I 

Array  of  counters  for  classes  of  data  types 
used  for  measurement  print  control  (See 
Input) , 

MPFREQ 

11 

I 

Array  of  print  frequencies  for  measurement 
print  control  (See  Input), 

NCNTE 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  eigenvector  event. 

NCNTG 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  guidance  event. 

NCKTP 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  prediction  event. 

NGNTT 

1 

I 

Counter  indicating  number  of  current  (or 
most  recently  executed)  thrust  event. 

NEIGEN 

1 

I 

Total  number  of  eigenvector  events  to  be 
processed. 

N6UID 

1 

I 

Total  number  of  guidance  events  to  be 
processed . 

NPRED 

1 

I 

Total  number  of  prediction  events  to  be 
processed. 

NSCHED 

1 

I 

for  input,  number  of  scheduling  cards  to 
be  read. 

During  execution,  number  of  elements  of 
SCHEDM  (common/SCHEDR/)  to  be  tested  for 
scheduling. 

HTHRST. 

1 

X 

Total  number  of  thrust  events  to  be  pro- 
cessed. 

J 
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Name  Dimension  Type  Definition 


n)  Conmion/SCHEDR/ Scheduling  Related  real  Variables 


DELTIM 

1 

R 

Propagation  interval  length,  time  between 
previously  and  currently  scheduled  event, 
DELTIM  computed  between  STM  file  time  when 
reading  STM  file,  and  between  actual  sched- 
uled times  for  PD0T  and  STM  file  generation. 

SCHEDM 

3x50 

R 

Array  of  measurement  schedule  rimes. 

SCHEDM (1,1)  = Next  time  to  be  scheduled 

for  measurement  type  MC0DE(I) 
SCHEDM (2, I)  = Stop  time  for  MC0DE(I) 

SCHEDM (3, I)  = Time  increment  for  scheduling 
MC0DE(I). 

TGURR 

1 

R 

Current  trajectory  time. 

TGUT0F 

20 

R 

Array  of  guidance  event  cutoff  times. 

TDELAY 

20 

R 

Array  of  guidance  event  delay  times. 

TEIGEN 

20 

R 

Array  of  eigenvector  event  times. 

TFINAL 

1 

R 

Final  trajectory  time  for  current  run. 

TGUID 

20 

R 

Array  of  guidance  event  times. 

TIMFTA 

1 

R 

Target  condition  evaluation  time  for  fixed 
time  of  arrival  targeting. 

TMNEXT 

1 

R 

Time  of  next  measurement  (or  propagation 
event)  to  be  scheduled  (See  SCHED,  Section 
3.3.36) . 

TPAST 

1 

R 

Time  of  most  recently  scheduled  measurement 
or  event.  Set  to  previous  scheduled  time 
when  generating  STM  file  or  executing  PD0T. 
Set  to  previous  STM  file  time  when  reading 
from  STM  file. 

TPRED 

10 

R 

Array  of  prediction  event  times. 

TPRED2 

10 

R 

Array  of  times  predicted  to  for  prediction 
events . 

i 


I 


Hame  Mmension  Type 


Definition 


TSTM 


Current  time  from  STM  file  when  reading  STM 
file. 


Array  of  thrust  event  times. 
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2.6.4  SIMSEP  Conmon  Blocks 

The  SIMSEP  overlay  of  MAPSEP  has  seven  common  blocks;  DYN0S,  ISIMl, 
ISIM2,  SIMl,  SIM2,  SIMLAB  and  ST0REC.  DYN0S  contains  the  random  number 
seed  and  thrust  noise  terms;  it  is  essential  to  all  SIMSEP  routines  that 
call  the  random  number  generator,  RNUM.  SIMl  and  ISIMl  are  common  blocks 
containing  information  essential  to  the  operation  of  SIMSEP  and  execution 
of  the  Monte  Carlo  loop.  SIMl  contains  real  data  and  ISIMl,  integer 
da.ci.  SIM2  and  ISIM2  have  a correspondence  similar  to  SIMl  and  ISIMl 
and  contain  accumulated  statistical  data.  SIMLAB  contains  Hollerith 
labels  used  throughout  the  program.  Finally,  ST0REC  is  a storage  common 
block  with  three  sets  of  data,  each  pertaining  to  the  actual,  estimated, 
and  reference  world  integrating  conditions. 


a)  Common/DYN0S/ Process  Noise  Variables 


Name 

Dimension 

Type 

Definition 

IRAN 

1 

I 

Random  number  seed. 

TVERR 

6x3 

R 

Time  varying  thrust  errors. 

b)  Conanon/ISIMI/SIMSEP  Integer 

Variables 

IE  PH 

5 

I 

Ephemeris  planet  code. 

IGL 

5 

I 

Guidance  Flag. 

INREF 

1 

I 

State  vector  read-in  flag. 

I0UT 

1 

I 

Printout  frequency  flag. 

IPUNCH 

1 

I 

Punch  output  flag. 

ITMX 

5 

I 

Maximum  number  of  iterations  allowed  in  non- 
linear guidance. 

V,-. 1.. 

Name 

Dimension 

i - 

2m 

I 

. 1 4 - 4-  ^ 
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Def initJ  on 

JMAX 

1 

Number  of  the  last  active  thrust  control  phase. 

JMIN 

1 

I 

Nuiriber  of  the  first  active  thrust  control  phase. 

KDIM 

5 

I 

Dimension  of  the  augmented  knowledge  covariance. 

KTERR 

5 

I 

Option  flag  for  calculating  target  errors  after 
a guidance  correction. 

LSTAR 

6x5 

I 

List  of  target  variable  codes. 

MTPH 

5 

I 

Thrust  phase  number  at  a guidance  event. 

N CYCLE 

1 

1 

Number  of  Monte  Carlo  cycles. 

NEP2 

2 

I 

Active  ephemeris  planet  code. 

NGUID 

1 

I 

Number  of  the  guidance  event 

NTAR 

5 

I 

Number  of  target  variables. 

NTC 

5 

I 

Number  of  control  variables. 

NTPL 

5 

I 

Number  of  the  target  planet. 

c)  Cotnmon/ISIM2Alonce  Carlo  Integer  Variables 

KATH 

1 

I 

Dimension  of  the  ATHC0V  covariance  matrix 
(see  Common  SIM2). 

MC 

1 

I 

Number  of  Monte  Carlo  cycles  executed  previously. 

NSAMP 

5 

I 

Number  of  Monte  Carlo  cycles  executed  previously 
for  a given  guidance  event. 

d)  Common/ SIMLAB/SIMSEP  Labels 

LABCON 

12x5 

I 

Stores  Hollerith  data  pertaining  to  control 
variables. 

LABTAR 

12x5 

I 

Store  Hollerith  data  pertaining  to  target 
variables . 

NAMEX 

12 

I 

Store  Hollerith  state  vector  labels. 

t 
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e)  Common/SIH£/Tra jectory  Simulation  Real  Varlabl 


Name 

Dimension 

Type 

Definition 

A0K 

1 

R 

Backup  convergence  tolerance  for  the  weak 
convergence  test. 

C^NWT 

6x5 

R 

Control  weights. 

CPMAX 

1 

R 

Computer  processing  time  limit. 

DVMD0T 

1 

R 

Mass  flow  rate  for  chemical  propulsion  system. 

DVMXN 

1 

R 

Maximum  delta- veloc ity  magnitude  step. 

EPMERR 

6x7x2 

R 

Ephemeris  error  covariances  (in  eigenvector/ 
eigenvalue  format)  for  the  ephemeris  bodies. 

EXVERR 

4 

R 

Midcourse  velocity  correction  execution  errors. 

GMERR 

3 

R 

Gravitational  constants  errors. 

MEND 

X 

R 

S/C  reference  mass  at  TEND, 

PG 

6x7 

R 

Spacecraft  control  error  matrix  (eigenvector/ 
eigenvalue  format). 

RM(E 

5 

R 

S/C  reference  mass  at  a guidance  event. 

RMTAR 

5 

R 

S/C  reference  mass  at  a target  point. 

RXGE 

6x5 

R 

Reference  state  vector  at  a guidance  event. 

RXTAR 

6x5 

R 

Reference  state  vector  at  a target  point. 

SCERR 

10 

R 

Spacecraft  errors. 

SMAT 

36x5 

R 

Sensitivity  or  guidance  matrix. 

SPPIMP 

1 

R 

Specific  impulse  for  chemical  propulsion  system. 

TCERR 

6x20 

R 

Thrust  bias  errors. 

TEPH 

2 

R 

Epoch  of  evaluation  of  the  ephemeris  errors. 

TGE 

5 

R 

Guidance  event  epoch 

T0L 

5 

R 

Target  condition  tolerances. 

I 


1 
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Name 

Blmension 

Type 

Definition 

TTAR 

5 

R 

Target  epoch. 

UNTAR 

6x5 

R 

Conversion  factor  for  converting  target  vari- 

ables from  internal  to  external  printout  units 

XEND 

6 

R 

Reference  state  vector  at  TOND. 

XEPH 

6x2 

R 

Ephemeris  planet  state  vector. 

XTARG 

6x5 

R 

Reference  trajectory  target  variables  at  TTAR. 

f)  Common/ SIM2^onte  Carlo  Real  Variables 


ADVT 

2 

R 

Total  delta-velocity  magnitude  statistics. 

AMASS 

2 

R 

Accumulated  final  spacecraft  mass  statistics. 

ATRC0V 

420 

R 

Accumulated  total  thrust  control  statistics. 

CNC0V 

42x5 

R 

Accumulated  active  thrust  control  error 
statistics. 

DVC0V 

3x4x5 

R 

Accumulated  delta-velocity  vector  ertor  matrix. 

DVMAGS 

2x5 

R 

Accumulated  delta-velocity  magnitude  statistics. 

ENDC0V 

6x7 

R 

Spacecraft  control  error  covariance  at  the 
final  trajectory  time  TEND. 

GCC0V 

6x7x6 

R 

Accumulated  spacecraft  control  error  statistics 
evaluated  at  guidance  events. 

GKC0V 

2x5 

R 

Accumulated  mass  error  statistics  evaluated 
at  guidance  events. 

TCC0V 

6x7x5 

R 

Accumulated  spacecraft  control  error  statistics 
evaluated  at  the  target  points. 

TERC0V 

42x5 

R 

Accumulated  target  error  statistics. 

TMC0V 

2x5 

R 

Accumulated  mass  error  statistics  evaluated 
at  target  points. 

i 


1 
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g)  Common/ST0REC/ Stored  Variables 


Name 

Dimension 

Type 

Definition 

SCRAl 

1 

R 

Stored  radiation  pressure  coefficient. 

SECCl 

4x10 

R 

Stored  planetary  eccentricities. 

SEtffiJl 

15 

R 

Stored  lunar  orbital  elements. 

SEXVl 

1 

R 

Stored  exhaust  velocity. 

SINCl 

4x10 

R 

Stored  planetary  inclinations. 

SMEANl 

4x10 

R 

Stored  planetary  mean  anomalies. 

SNTPHl 

1 

R 

Stored  thrust  phase  number. 

S0HEG1 

4x10 

R 

Stored  planetary  nodes. 

S0MGT1 

4x10 

R 

Stored  planetary  longitude  of  APSES. 

SPMl 

11 

R 

Stored  planetary  masses. 

SPOl 

1 

R 

Stored  electric  power  constant. 

SSAXl 

2x10 

R 

Stored  planetary  semi-major  axes. 

SSCMl 

1 

R 

Stored  S/C  mass . 

SSMl 

1 

R 

Stored  solar  mass. 

STEFFI 

1 

R 

Stored  thruster  efficiency. 

STHRTl 

6x20 

R 

Stored  thrust  control  profile. 

SXEPHl 

6x2 

R 

Stored  ephemeris  body  cartesian  states. 

Note  that  there  are,  in  fact,  three  sets  of  data  in  ST0REC  corresponding  to 
post-scripts,  1,  2,  and  3.  For  example,  SCRAl  contains  tha  radiation  pressure 
coefficient  used  while  integrating  an  actual  trajectory.  SCRA2  also  contains 
a radiation  pressure  coefficient  but  is  used  while  Integrating  an  estimated 
trajectory.  Likewise,  SCRA3  and  all  post -script-3  constants  are  used  for 
generating  the  reference  trajectory. 


54 


MAPSEP-1 


3.1  Subroutine; 
Purpoae; 


Input /Output; 
Variable 
M(JfDE 


ICYCtE 

INIT 

local  Variables 
Variable 
ISEND 


MAPSEP 

MAPSEP  is  the  executive  routine  that  selects  the  mode 
of  operation  (primary  overlay);  TI^PSEP,  G((DSEP,  STMSEP» 
or  REFSEP.  In  addition,  1-lAPSEP  calls  a fifth  primary, 
overlay  DATAM,  to  initialize  many  trajectory  parameters, 
and  to  print  the  initial  trajectory  information. 


Input / Argument / 

Output Common Definition 


I 


0 


0 


C Flag  determines  the  program’s 

operational  mode. 

= + 1,  Targeting  and  Optimization 
(TOfPSEP)  . 

= + 2,  Error  analysis  (GOfDSEP) . 

= + 3,  Simulation  (SIMSEP). 

- + 4,  Reference  trajectory  pro- 
pagation (REFSEP). 

Positive  values  will  cause  re- 
cycling back  to  the  MAPSEP  main, 
while  negative  numbers  will  cause 
recycling  back  to  the  mode  main. 

C Flag  used  for  writing  the  mode's 

namelist  onto  disc  when  recycling 
back  to  the  mode's  main. 

= 0,  Do  not  store  the  namelist 
variables  on  disc. 

= 1,  Store  the  namelist  variables 
on  disc. 

C Flag  used  to  read  namelist  §fTRAJ 

from  disc  during  recycling. 


Definition 


Index  used  to  select  the  program's  mode  of 
operation.  ISEND  Is  the  absolute  value  of 
M0DE. 


55 


mPSEP-2 


Subroutines  Callftdi  DATAM,  T0PSEP,  G0DSEP,  SIMSEP,  REFSEP 

Common  Blocks:  (BLANK),  C0NST,  CYCLE,  EDIT,  EPHEM,  TIME,  TRAJl, 

TSAJ2,  TEKDAT,W0RK 


Logic  Flow; 
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BLKDAT-1 


3,1.1  Subroutine  t 
Purpose ; 


Method : 
Remarks ; 


BLKDAT 

To  initialize  default  values  of  program 
constants. 

DATA  statements. 

The  following  four  pages  contain  a listing  of 
BLKDAT  with  respect  to  the  default  constants 
in  MAPSEP.  The  variables  are  defined  in 
appropriate  common  blocks  (Section  2,6). 

Common  C0NST;  AU,  PI,  RAD,  TM,  F0P,  BIG,  S^LL 
Common  EPHEM:  DJ1900,'  SUN^  PLANET,  SMASS,  PMASS, 

CSAX,  CECC,  CINC,  C0MEG,  C0>iEGT,  CMEAN,  EMN, 
SPHERE,  SRADIS,  PRADIS 
Common  TRAJl;  UP,  VP 
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BLKDAT-2 


DATA  AU/i,Avb97H9JLci/ 

DATA  K00r/l?*f>H  / 

DATA  DJ19UO/ii4i5UiiO,0/ 

DATA  PI  ?HAO/J.  141riV^bb338V/93i^3e4,b7.29B7r-;;^5l3U8232/ 

DATA  TM/ob4(jO.U/ 

DATA  SMALL«BIbiKUH»FO\//l*t-2tJtl»£20i  l.t-Ibil* ti-'clb/ 

DATA  SUN»HLANhT/6HSUN  ttiHME^^CPY , 6HVhNU=>  toHEAHTH  »6hMAHb  » 

$ 6HJUPlTr<»6HSATUKr^»bHURANUS»6HNEPrNFi6t-iHLUlU  »briti\CKE  ibMMOUN  / 
DATA  OP  ( 1 ' 1 MDP  (2  » i ) »UP  (3i  J ) t VP  ( 1 » 1)  ♦ VP  (2i  U ♦ VP  (3?  i ) /d^^O.O/ 


DATA  bMAbS,P*^ASS/ 


S 

M 

V 

E 

A 

J 

S 

U 

IV 

P 

A 

M 

b/ 


1,327124*^9^  11 
2 .2 1 b lb9  ^69  34b472d  + U4  » 
3,24C'60iOj»JOb4b7  0t*‘-OS« 
^,O3b03V^aH6774b9t-*-0bi 
4 ,2ij28443bb3bbbbbt  + 04  , 

1 *2b  707  7 ibd3dOc5?6L‘''03» 
3«  792632b  7 77  32  'J3riL  + 07  t 
b • 7 d 7 f 23462  7 1 2’DdbE 0 6 • 
6,tt90b7627d'J6b444t  + u6< 
7,324  ud934  d7  bodb^E  + 04 i 
1 • u « 

4.6983  0 99  709fa7b462t3 


SEwIMAJQk  A^lb  OF  Oh^IT  (K'*1) 


DATA  CSAX/ 
M 
V 
F- 
A 
J 
S 
u 

N 

P 

X 

5/ 


b.7909134v4.3249  70ti+0  7, 
1 , 0B2  0dda3  3 0 031b  7f.  + 0b'. 
1 .4969  792  /40  7dU6E  + 0Ht 
2.27941  03  7v*i2CHJb 9 E + Od? 
7 . 7e3 26366494  0 7bBt  + 0b< 
1 • 4 2699  06144677  ■74t.+  09t 
2.Bb9b2bb2ob3d9c0E+04» 
4,4Vo47179dbd9425t+09i 
6.b9i:2lJ7dbi46  7j3d  + 09» 
0.  « 


ECCENTPiCiTr  OF  PlanET  OPPIT 


DATA 

M 

M 

V 

V 
E 
6 
A 
A 
J 
J 


{CECCCI)iI-l»dJ)/ 

2.0b6l421ou000000E'*01 » 
-3.0OO0UU0OU00CU0GE“Ob< 
b.d20D90000  000  000E-’01» 
9. lOOOOUOOOOOOOOOE-Ob? 
1.67bl040UOOOOOOOE-02f 
"l.d600uuOOuOOO‘iOOE-Q7» 
9. 331 290000000 OOOE-O2i 
-7, 700000000000000 E-0b» 
4, 633  7^*0  0000  0 00  00E-02t 
(J  • » 


i>  • 

0. 

0 • 

0. 

0. 

0* 

-a.b2d27bbd4l44000t+04 
I ,biU3b2B37b02377E+0b 


U • 3 

0. 


2, 04dOOOQOOUOOOOOc.-06» 
u,  1 

*“4, 774uOOOOOUUOOOOt“05n 

U • 9 

-4.lBOOOOUOOOOOOOOc.-05? 
0 , 1 

9.20b400000u00000t-05i 

0 . 4 

1 . 63020000000 000 OE-04, 
U. 


I 
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. BLKDAT-3 


DATA  ICECC(  I)  »40)  / 

S b.bbVUOUUUUOJUOUOt-OPt 

S 0 ■ • 

U 4,  ?04£)  j0000000,[>00t“02» 

U , 0 • » 

N A.b284VOOOOOUOOUUt-b3» 

N ' 0 • f 

H 2#  4Hb0330b  Jb2fiy2AE”Q  1 f 

P ■ 0,  » 

X U.  t 

X 0 * t 

s/ 


‘3.470b00000000u00t-04f 

0 • ' f 

2.720  40  0000000000t.-U4» 
0,  ? 

/,70100O000U00000t;-0b» 

0.  9 

U • 9 

0 « * 

0 • 9 

u. 


inclination  01*  PLANE!  0Kb IT 


DATA  CCINCn  1 1 l“i  )201  / 

M l,2222j32i:8l8.333Oii-0l  t 

M -«3, 199  77vj2Vtj322940£-07? 

V b,923002^>790  72ob4E-02$ 

V “1 « bybtiA  / ti83b6337H£“0ti  t 

E 0 e 9 

E 0,  . 9 

A 3.22V440t!9260bM39t~02» 

A 2.2010^41  1223?3lJ3t“07* 

j 2.2a4i02fo9bBi 13b2L-02 I 

vJ  0 » * 

s/ 

DATA  CCINCd  ) 1 I=2lt4Ji  / 

S 4,3b037&toU4700200E-02t 

S 0.  9 

U loi48bb4A9BllUb07E-02» 

U U.  « 

N 3, lUb3 77U 7ibl0904E-02i 

N Q « 9 

P 2.V967069 ? Udb96V4t-01 « 

? 0,  9 

X 0,  9 

X . o;  » 

s/ 


J.24  776btJ497b2769t-0b» 
0 a 9 

1*  7bbbl0339297630t-05* 
U a « 

0.  t 

0 a . * 

•1 .17d0y724b09blB0ii-05» 

U a * 

•y  .t5yfa2  73622ly07l4E-05t 


*/.7b70lB6y7752ba0L“05 

U. 

V. by6273622iy0725L-06 
0, 

■1  abyybt5bl4766l4  70c.“U4 
0, 

0* 

0„ 

Oa 


longitude  of  ASCENDIn^j  node  of  kLAnET  OHttir 


DATA  (COI^EO  I n » 1 = 1 »20  ) / 


Ba22tjbl9!Dybi7ti8JbE“01t 
3aO34y33b4j74b70lE-0b« 
ia322bC43bU027b47E+00< 
7.155649933176/ 71E-06» 

0 a « 

U.  * 

aabl4b4  0 3741b481bE~01'> 
-2*424  Ubb4 0554 7bdbE -08  » 
1 g 7355180  77529  71  lE  + 00  » 

0.  « 


2,ubb5  7b773b74ll9t.-02t 
0,  * 
i*b70bi4b27407097t-02* 
0.  * 

00  * 
0*  » 

1 a 34b63430bb7 7 203E-0E* 
•9.3084226 7 7303082 t-08» 

1 a 7644  793923981556-02* 

0. 


1 
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BLKDAT-4 


•h/ 

DATA 

S 

S 

U 

U 

N 

N 

r> 

*; 

%/ 


{C0Mtt5(  I ) 1 l-til  *hO)  / 

1 .':?6b‘*4Aba04  7S85AE’  + 0 0 » 

0.  t 

1. £?b2f6^077  044<r'747£  + 00  ^ 

0 « 1 
^.i?a0  773  3aj30  04l4e.+  00« 
u • ♦ 

1 ,Vl«t3j/b3ulO?if5ai:+00* 

U * t 

0.  » 

U.  1 


LOr4GlTUi)f.  UF  UF  PLANF.T  OWHi  F 


DATA 

M 

M 

V 

V 
E 
f_ 

A 

A 

J 

J 

%/ 

DATA 

S 

b 

u 

•J 

N 

P 

p 

X 


(CO-'^EGTH)  ^l  = Wd‘j)/ 

1 , 3^46V  J'=>1  F7^4S6Sr.  + 0G  » 
b»  l4JB731uob  FalbOE"^^' 
<j.<fn7tt74bo<naja04E  + 00< 
“i.^OAiiiUUo^^lOrjOPiE-Obf 
la  ?bf)b 3ob  1 Ji? 7 u b^F+ 0 0 » 
7 a 90a^Gj0  i)<^0Hb4b3t“06  » 
b*o3  3a0a0bcib70<^b0t  + 0U* 
ila^obbOa^^bVloFllHOE-Obi 
?.£?lbbG4lbti?03i':'UF“01fl 


0 a t 

(COMEtiF  ( I ) U=ai  f A0  3 / 

l«3d97^;<'^Gt>'36lfciO77E+0U  i 
0 • ♦ 
<f.3b024/£?t>Od38cf752t  + 00» 

0.  9 

7abiba93t5l7V54a56E-nl  ^ 

(J.  t 

3.9u991^3iJa79iy4«E  + 0 0 9 

0 » t 

0 a 9 

U • 9 


b/ 

MEAN  AtNOMALY  OF  PLANE!  OhHIT 


DATA 

M 

V 

V 
£ 

E 

A 

A 

J 

J 


(cpean  n ) » 1=1 lao) / 

1, 7bbill9bb3bl 731 £+00* 
^J.7^6646ab9v71626E-09» 
3 a 7 1 0626  I 7 i 88tSb63£  + 0 0 9 
iab8249  73vdv22b3bE*'0fa» 
6adb65B37ci^l  186746+00* 
-iaVb47bd7b2233fa48E-07* 
5eb76840b2325430bE+00* 
2,3b544473da27922E"07* 
3«9306b8l 7b72l440E+009 

U B 9 


1 Bb2397 766981 0149 t~U 2 
Ob  . 

6,9120674929960468-03 

0. 

1 .9230326666882178-02 


0. 

U. 

0, 


2. 71 46 4026692994 0E-02» 
0 , * 

e:,A8  74866  l2bB6bb7t-02» 

Ob,  5 

3#OoUb2b4l67973b6t-02* 
6,6177841733144628-08* 
3,212  729368  0169968-02* 
-2,084696626771 0068- U8» 
2,6123023dJ2433908-02* 
U. 


3.4196611621362408-02 

0, 

2.63460663071 12338-02 

0. 

1,5327046166701206-02 


Ua 

0, 

0, 

0. 

0. 


7 «l4 24 710007926468+02* 
0,  * 
2,79624462327B380E+02i 
0.  » 
i,72Ulvo97o766b20E+J2* 
1.221 73 04 763960 3dL-U9i 
9, 1 466^^77  269947268 + Ul  1 
4.3633231299866238-10* 
1,46019192  77874318  + 0 1 * 
0, 
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BLKDAT-5 


] 


6/ 

DATA  (CMLANCI)  / 

5 3*  062o4  0o25 1 S3i£E  + 0 0 » 

S 0«  » 


U 

y 

N 

N 

P 

P 

X 

X 

s/ 

DATA  E-^N/ 

0 

0 

tf 

L 

L 

I 

E 

A 

$/ 


1.2V7ifi2lb222bl7aE+00» 
0 • * 
7€,20AbblbOc>367bilt-01  t 
0 • » 
3,yy3cjvaoOto70  7jAue  + oo» 
0.  * 
0 « 1 
0,  -» 


AcS2i6''lbib  s 

0,000036i-.b7  « 

5*b3biblb4  9 

"U,  UOOlbOtrub  9 

4,7i99fc>bb73  1 

-0*00001977^  » 

^•Oa^bOt*  I Ok  9 

0.05A900^6v  9 

3*3A3VciAA03K5 


DATA  SPHtKE/ 
M 
V 
E 
A 
lJ 
S 
U 
N 
P 
X 

f* 

$/ 


3, l89B7duP2eAlt +05 
1 *^bA3365A623Jt  + 06 
^ • 1 6 ? 226 1 w b d 7 3 c.  + 0 to 
1 .563A9Ji:5U95ciE  + 06 
7 *66^07tt43l l^bE  + 07 
y.  39^^35  9395396E  + 07 
1.0100  bi^bOO^'i6£  + OH 
1»67  7At)Odj0ti09r.  + 08 
A, 8314bv3 l4  75bd  + 0 7 
0 • 0 

d. 555261  i39223E>06 


DATA  SPAUlS'.-^RADlb/ 

S b.95992i£  + 05 

Hi  2.43b0UE  + 0b 


V 

£ 

A 

J 

S 

u 

N 

P 

X 

H 

i/ 

ftF.TUKN 

End 


Ou ObOOUt +03 
6.37di6t+73 
3.393'<-0E  + 03 
7.13720E+04 
b,  040  lOL  + O't 
2.3bb00t+04 
2.50020E+OH 
7.0 1 600E+  03 
O.O 

1o73k09E+03 


5,83  7i20y8v790549t:+00  9 
0 * , * 
2c04bb4  7y 1905851 lE  + 0 0 9 
0.  » 
1 .046371040833037E+00» 
0 . 9 

6,962635  7 082989 V7L-01  9 

0.  9 

0 , * 

U. 

-0.0019242?  9 

U.00O000034  9 

0. 001944367  9 

-0.000000209  9 

U.ir29y7i4Bl  9 

0.000000033  9 
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DATAM-1 


3.1,2  Subroutine 
Purpose: 

Me  Ehod: 


Remarks : 


Input/Output: 

Variable 
ACC  (STEP) 

BIG 

B0DY 


DATAM 

To  read  input  data  and  initialize  trajectory 
and  spacecraft  parameters  for  all  MAPSEP  modes. 
After  DATAM  executes  the  default  value  initial- 
ization, the  namelist  $TRAJ  is  read.  The  dimen- 
sions and  definitions  for  variables  contained  in 
this  namelist  are  discussed  in  detail  in  Section 
2.1  of  the  User's  Manual,  The  input  data  are 
processed  and  stored  in  labeled  common  for  sub- 
sequent use  in  any  of  the  three  possible  modes. 

User  options  specified  by  input  determine  the 
degree  of  data  preparation  and  the  logic  opera- 
tions within  the  main  cycle  of  the  program. 

Some  variables  appearing  in  DATAM  are  initialized 
from  the  namelist  with  units*  specified  in  the 
User's  Manual.  Before  these  variables  are 
stored  in  common,  they  are  converted,  if  neces- 
sary, to  internal  units  which  are:  kg,  kw,  km, 

sec,  kra/sec,  and  radians 

Input/  Namelist/ 

Output Common Defini  tion 

I N/C  Scaling  factor  of  the  inte- 

gration step  size. 

20 

0 C Large  constant,  1*10 

0 C Hollerith  names  of  bodies 

considered  in  integration. 


1 
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I 


Variable 

Input/ 

OutDUt 

Namelist/ 

Goironon 

Definition 

B0DYIN 

I 

N 

Input  ephemeris  data  for 
body  not  included  block 
data » 

CECG 

I/O 

C 

Array  of  orbital  eccen- 
tricities and  rates. 

CINC 

I/O 

C 

Array  of  orbital  inclina- 
tions and  rates. 

CMEAW 

I/O 

C 

Array  of  mean  anomalies 
and  rates. 

I/O 

C 

Array  of  longitudes  of 
ascending  node  and  rate's. 

C0MEGT 

I/O 

C 

Array  of  longitudes  of 
periapsis  and  rates. 

CSAX 

I/O 

C 

Array  of  semi-major  axes 
and  rates. 

DJ1900 

0 

C 

Julian  date  of  year  1900. 

DRMAX 

I/O 

N/C 

Maximum  deviation  from  the 
reference  conic  before 
rectification. 

ECEQ 

0 

C 

Transformation  matrix  from 
Earth  equatorial  to  ecliptic. 

ENGINE 

I/O 

N/C 

Spacecraft  subsystem  para- 
me ter. 

EP0CH(TLNCn) 

I/O 

C(N) 

Launch  epoch. 

FRCA 

I/O 

N/C 

Specification  for  testing 
closest  approach  along  tra- 
jectory (See  Section  2.1, 
User’s  Manual). 

lAUGDC 

I/O 

K/C 

Flags  specifying  parameters 
which  are  used  to  augment 
the  state  transition  matrix. 

laAIi 

0 

C 

Trajectory  package  initial- 
ization flag. 

......1 —I 1^,.,. - i 


J 


1 


i... 
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63  DATAM-3 


Input/ 

Variable  Output 

Namelist/ 

Common 

Definition 

IC00RD 

I/O 

N/C 

Flag  indicating  relative 
to  which  body  the  input 
state  corresponds. 

lENRGY 

I/O 

N/C 

Flag  specifying  type  of 
power  subsystem. 

INIT 

0 

C 

Cycle  flag. 

INTEG  (I^T(D) 

0 

C 

Flag  specifying  equations 
to  be  integrated  in  the 
trajectory  package. 

IPRINT 

I/O 

N/C 

Print  option  flags. 

ISTMF 

I/O 

N/C 

STM  file  flag  and  data 
cycle  flag. 

IST0P 

I/O 

N/C 

Flag  specifying  stopping 
conditions. 

JPFUG 

0 

C 

Primary  body  change  out- 
put flag. 

KTRAJ(I0PT(2)) 

0 

C 

Control  phase  change  out- 
put flag. 

L0CS 

0 

C 

First  location  in  blank 
common  available  for  use 
in  the  trajectory  package. 

MEVENT(I0PT<3))  0 

C 

Event  detection  logic  flag 

M0DE 

I/O 

N/C 

Mode  specification  flag. 

MPIAN 

0 

C 

Number  of  bodies  included 
in  the  integration. 

NB 

I/O 

N/C 

Flag  specifying  bodies  to 
be  included  in  the  inte- 
gration. 

NB0D 

0 

C 

Number  of  bodies  specified 
in  NB  (MPIAN-1). 

KEP 

I/O 

N/C 

Ephemeris  planet  designa- 
tion. 
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DATAM-5 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition  ' 

XB0DY 

I/^ 

N/C 

Hollerith  name  of  input  body. 

XPRINT 

1/0 

N/C 

Trajectory  print  frequency 
(days) , 

ZK 

1/0 

N/C 

Direction  cosines  of  the 
reference  star. 

DUMMY 

I 

N 

Not  used. 

ELVMIN 

1/0 

N/C 

Minimtim  elevation  angle. 

GHZEP^ 

0 

C 

Greenwich  hour  angle  at 
launch  epoch. 

I0BS 

1/0 

N/C 

Index  designating  location  of 
astronomical  observatory  in 
STAL0C. 

KARDS 

1/0 

N/C 

Number  of  formatted  print 
schedule  cards  to  be  read  dur- 
ing a REFBEF  run. 

PRHML 

I 

N 

Logical  flag  specifying  that 
the  $TRAJ  namelist  be  printed 
(TRUE)  or  not  be  printed  (FALSE) . 

STAijCfC 

1/0 

N/C 

Tracking  station  coordinates. 

Local  Variables; 

Variable 

Definition 

AO,  Al,  A2, 

A3 

Constants 
tions . 

used  in  the  obliquity  computa- 

DJCEMT 

Days  in  a 

Julian  Century. 

DlOK 

Constant 

10^. 

I0PT 

Option  flags  used  to  set  parameters  in 
TRAJ. 

JMAX 

Number  of 

thrust  control  phases. 

SIATER 

Magnitude  of  Initial  position  vector. 

STATEV 

Magnitude 

of  initial  velocity  vector. 

Subroutiaes  Called:  BLKDAT 

, ZER0M,  WMAB, 

VEGMAG,  TIME 

Calling  Subroutine:  IIAPSEP 

Common  Blocks: 

C0NST, 

EDIT,  EPHEM, 

TIME,  TRAJl,  TRAJ2,  W0RK,  TRKDAT 

PBECEDHC}  PAGE  BT.A\nr 


1... 


J - 1 , J 
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3.1.3  Subroutine:  TIW  (DAY,  lYR,  M0,  IDAY,  IHR,  MIN,  SEC,  IC0DE) 

Purpose:  TIME  converts  a Julian  Date  to  the  corresponding 

calendar  date  or*a  calendar  date  to  the  correspond- 
ing Julian  Date. 

Input/Output: 


Input/  Argument/ 


Variable 

Output 

Common 

Definition 

DAY 

I/O 

A 

Julian  Date, 

lYR 

I/O 

A 

Calendar  year. 

H0 

I/O 

A 

Month. 

IDAY 

I/O 

A 

Day, 

IHR 

I/O 

A 

Hour, 

MIN 

I/O 

■A 

Minute. 

SEC 

I/O 

A 

Second. 

IC0DE 

I 

A 

Plag  that  determines  whether 
to  convert  from  a Julian 
Date  to  calendar  day  or  vice 
ver'sa . 

= 0,  Convert  to  a Julian  Date 
^ 0,  Convert  from  a Julian 
Date 

Subroutines  Called: 

None 

Calling:  Subroutine: 

DATAM 

Common  Blocks: 

None 

1 
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T0PSEP-1 


3,2 


Subroutine : T^PSEP 


Purpose ; 
Remarks: 

Input/Ou tput ; 


To  execute  the  proper  submode  operation, 

T0PSEP  is  the  primary  overlay  which  controls  the 
targeting  and  optimization  mode. 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IM0DE 

I 

C 

Submode  designation. 

M0DE 

I 

C 

Mode  designation. 

“1,  Cycle  back  within  mode 

. 

1,  Cycle  back  to  MAPSEP 
main 

Variables: 

Variable 

Definition 

W0RK 

Working  storage. 

Subroutines  Called: 
Calling  Subroutines; 
Common  Blocks; 


DATAT,  PEGS,  GRID,  PGM 
MAPSEP 

(BLANK),  ALTFIL,  C0NST,  EDIT,  EPHEM,  GRID,  TIME, 
T0P1,  T0P2,  TRAJl,  TRAJ2,  W0RK 
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BUCKET- 1 


3.2.1  Subroutines  BUCKET  (X,  Y,  N,  XX,  YY,  HP) 


Purpose: 


Remarks : 


To  sort  a set  of  independent  elements  in  ascend- 
ing order  and  to  find  a right  bounded  minimum 
from  the  associated  set  of  dependent  elements. 
This  routine  is  used  in  preparation  for  the 
polynomial  curve  fitting  routine,  MINMUM,  to  aid 
in  calculating  trial  control  profiles.  BUCKET 
sorts  pairs  of  elements  Y^)  in  ascending 

order  of  the  elements  to  form  the  pairs  of 
elements  (XX^,  YY^)  and  locates  the  element 

YY,^^  such  that 
Nr 


^NP  ^NP-E-1 


If  this  condition  cannot  be  satisfied  the 
pointer,  NP,  is  set  to  zero  to  indicate  that  no 
right  bounded  minimum  exists. 


Input/Output: 


Input/ 

Variable  Output 


Argument/ 

Common 


■Definition 


N 


I A 


Number  of  elements  to  be 
sorted. 


N?  0 A Pointer  to  a minimum 

dependent  element. 

X I A Vector  of  independent 

elements  to  be  sorted. 


XX  0 A 


Vector  of  ordered  independ- 
ent elements. 


i J J I ! 
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Variable 

Input/ 

Output 

Agrument/ 

Common 

Beflnition 

V 

I 

A 

Vector  of  dependent  elements 
associated  with  X, 

YY 

0. 

A 

Vector  of  dependent  elements 
associated  with  XX. 

Local  Variables: 

Variable 

Definition 

lEHD  Termination  flag, 

SAVE  Intermediate  variable. 


Subroutines  Called;  None 
Galling  Subroutines i GEKMIN 
■Common  Blocks: 


None 


I 


i 


— 


75 


DATAT-1 


j' 


3,2.2  Subroutine;  DA TAT 


Purpose: 


Method; 


Remarks ; 


Input/Output; 

Variable 

BIG 

BT0L 


To  read  input  data  and  initialize  the  trajectory 
targeting  and  optimization  mode. 

After  DATAT  executes  the  default  value  initial- 
ization, the  namelist  ^T0PSEP  is  read.  The 
dimensions  and  definitions  for  variables  con- 
tained in  this  namelist  are  discussed  in  detail 
in  the  T0PSEP  section  of  the  User's  Manual.  The 
input  data  ere  processed  and  stored  in  labeled 
common  for  subsequent  use  in  any  of  the  three 
possible  submodes.  User  options  specified  by 
input  determine  the  degree  of  data  preparation 
and  the  logic  operations  within  the  main  cycle 
of  the  program. 

Some  variables  appearing  in  DATAT  are  initialized 

from  the  namelist  with  units  specified  in  the 

/ 

User's  Manual,  Before  they  are  transmitted  to 
other  routines,  they  are  converted,  if  necessary, 
to  internal  operational  units  which  are:  kg,  kw, 

km,  sec,  km/sec,  and  radians. 


Input/ 

Namelist/ 

Output 

Common 

Definition 

I 

C 

Large  constant,  1.E20 

I 

N/C 

Tolerance  on  control 
bounds , 

p 
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DATAT-2 


( 


Variable 

Input/ 

Outout 

Namelist/ 

Common 

Definition 

GHI 

0 

C 

In  plane  AV  direction 
angle  at  injection. 

CKTR0L 

0 

C 

Initial  values  of  all 
possible  controls  other 
than  thrust  controls. 

. , CKVRTT 

0 

G 

Conversion  constants  from 
input  units  to  internal 
units  for  selected  targets. 

CKVRTO 

0 

G 

Conversion  Constants  from  . 

input  units  to  internal 
units  for  selected  controls, 

DELVO 

0 

C 

Injection  JA.V|, 

DFimX 

I/O 

N/C 

MaKimum  increase  allowed 
in  the  cost  index  (F)  per 

J 

iteration. 

DP2 

I/O 

N/C 

Estimated  region  of  linear- 
ity In  the  cijhtrol  space. 

E 

6 

C 

Target  errors  of  the  curreni 
trajectory.  • 

* 

ENGINE  (1) 

I 

N/C 

Power  from  solar  panels  at 
1 A-U  . 

ENGINE (10) 

I 

N/C 

S/C  exhaust  velocity. 

EPS0N 

I 

N/C 

Scalar  multiple  for  control 
perturbations. 

ETL0UT 

0 

C 

Target  tolerances  in  print- 
out units. 

ET0L 

0 

C 

Target  tolerances. 

G 

x/0 

N/C 

Performance  gradient. 

G0OT 

0 

C 

Performance  gradient  in 
print-out  units. 

GTRIAL 

I/O 

N/G 

One-dimensional  search  con- 
stants. 
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DATAT-3 


Variable 

Input/ 
OutDU t 

Namelist/ 

Common 

Definition 

H 

I/O  . 

N/C 

Control  perturbation  array. 

HMULT 

I/O 

K/C 

Vector  of  scalar  multiples 
of  the  H array  to  determine 
the  second  step  of  all  con- 
trols in  the  control  grid. 

H0UT 

0 

C 

Control  perturbation  array 
in  print-out  units. 

XGYGLE 

I/O 

C 

Mode  cycle  flag. 

IM0DE 

I/O 

N/G 

TOPSEP  submode  designation. 

IKACTV 

0 

C 

Vector  denoting  which  con- 
trols are  active,  or  bounds, 
or  within  bound  tolerance 
regions. 

XNJL0C 

0 

C 

Inde>;  of  the  control  pre- 
ceding the  injection 
controls  in  U. 

IHSG 

I/O 

N/C 

Plag  set  when  S and  G are 
input  through  namelist. 

ITERAT 

0 

G 

Iteration  counter. 

IWATE 

I/O 

N/C 

Flag  designating  the  desired 
control  weighting  schemes. 

mx 

0 

C 

Number  of  mission  thrust 
phases. ■ 

JWATE 

I/O 

N/C 

Flag  designating  target 
weighting. 

KHAX 

0 

C 

Number  of  thrust  controls 
(THRUST (I, J))  chosen  to  be 
elements  in  U, 

K0NVRJ 

0 

c 

Convergence  flag. 

LABEL 

0 

! 

c 

Hollerith  names  of  all  pos- 
sible targets. 

1 


-i 


- 1 i 


.1 ...i 


\ i 


) 
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DATAT-4 


Variable 


Input/ 

Output 


Namelist/ 

CoTnmon 


Deflni tipn 


LABELT 


L0CCDC  0 C 

L0CCM  0 C 

L0CDU  0 C 

L0CDU1  0 C 

L0CDU2  0 C 

L0CE1  0 G 

L0CE2  0 C 

L0GEia  .0  c 

L0CEM2  " 0 G 


Hollerith  names  of  chosen 
targets. 

Blank  common  storage  loca- 
tion for  the  inner  products 
of  the  weighted  sensitivity 
matrix  columns. 

Blank  common  location  for 
storage  of  the  magnitude 
of  the  weighted  sensitivity 
column  vectors. 

Blank  common  location  of 
the  total  control  correction 
vector  (not  scaled  l-/  GAMA), 

Blank  common  location  of 
the  performance  control 
correction  vector  (not 
scaled  by  GAMA), 

Blank  common  location  of 
the  constraint  control  cor- 
rection vector  (not  scaled 
by  GAMA) , 

Blank  common  location  of 
the  target  errors  associated 
with  the  first  step  of  the 
control  grid. 

Blank  common  location  of 
the  targt-t  errors  associated 
with  the  second  step  of  the 
control  grid. 

Blank  common  location  of  the 
target  error  indices  associ- 
ated with  the  first  step  of 
the  control  grid. 

Blank  common  location  of  the 
target  error  indices  associ- 
ated with  the  second  step  of 
the  control  grid. 


t 


4.- J 
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Input/  Namelist/ 
Variable Output Common 

LiiiCEN  0 C 
L0CF1  0 G 
L0CF2  0 C 
L0CRFLi  0 C 


L0CSDU  0 C 


L0CSI*  0 C 


L0CSWG  0 C 


L0GSWS  0 C 


i 


30AWI-5 


De finition 


Blank  con’  non  location  of 
the  nominal  trajectory 
target  errors  in  the  grid 
mode. 

Blank  common  location  of 
the  performance  indices 
associated  with  the  first 
step  of  the  control  grid* 

Blank  conmion  location  of 
the^ performance  indices 
associated  with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the  S/C  masses  evaluated 
at  event  times  for  the 
reference  and  all  trial 
trajectories  in  a single 
iteration. 

Blank  common  storage 
location  for  the  original 
control  correction  vectors 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensi-tivity  matrix. 

Blank  common  storage  loca- 
tion for  the  original 
weighted  performance  gradient 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

Blank  common  storage  loca- 
tion for  the  original 
weighted  sensitivity  matrix 
when  a number  of  controls 
must  be  dropped  during  an 
it'eration. 


*llay  be  in  compressed  form  if  controls  have  been  dropped 
during  the  iteration. 


BO 


MTAT-e 


Variable 

Input/ 

Outout 

Namelist/ 

Common 

Definition 

L0CTS 

0 

C 

Blank  common  location  of 
event  times  for  the  refer- 
ence and  all  trial  trajec- 
tories in  a single  iteration. 

L0CUL 

0 

C 

Blank  common  location  of 
minimum  and  maximum  control 
bounds. 

L0CWG* 

0 

G 

Blank  common  location  of 
the  weighted  performance 
gradient. 

L0GWS* 

0 

C 

Blank  common  location  of 
the  weighted  sensitivity 
matrix. 

0 

C 

Blank  common  location  of 
the  control  weights. 

L0CXR 

0 

"G 

Blank  common  location  of 
the  6-component  state 
vectors  associated  with 
the  event  times  of  the 
reference  and  all  the  trial 
trajectories  of  a single 
iteration. 

MPRIKT 

I/O 

N/C 

Flag  designating  TOPSEP 
print  options. 

KLP 

I 

G 

Integer  designation  for 
launch  planet. 

mi&x 

I/O 

N/C 

Maximum  number  of  iterations 

NT 

0 

G 

Number  of  targets. 

NTH? 

0 

G 

Vector  of  primary  bodies 
associated  with  the  event 
times  of  the  reference  and 
all  trial  trajectories  in 
a single  iteration. 

*Hay  be  in  compressed  form,  i£  controls  have  been  dropped 
during  the  iteration,  j 
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DATAT-7 


Input/  Namelist/ 

Variable Output Coitmion 

NTPH  0 C 


NTR  0 C 

"7 

NTYPE  0 C 

NU  0 C 

<fipTEND  I/O  N/C 

0SCAI.E  I/O  N/G 

PCT  I/O  N/C 

PRTURB  G C 

PSI  0 C 

PI  O C 


P1P2  0 C 


Definition 


Vector  of  control  phase 
numbers  associated  with  the 
event  times  of  the  refer- 
ence and  all  trial  trajec- 
tories in  3 single  iteration. 

Trial  trajectory  counter 
(NTR  = 1 indicates  the 
iteration  reference  trajec- 
tory). 

Flag  designating  the  type 
of  control  correction  to 
be  made  during  an  iteration. 

Number  of  controls. 

Cosine  of  the  optimization 
angle  which  is  used  to  test 
convergence  in  the  target- 
ing and  optimization  mode. 

Scale  on  the  performance 
index  when  simultaneously 
targeting  and  optimizing. 

Percentage  of  the  target 
error  to  be  removed  during^ 
an  iteration. 

Vector  of  control  perturba- 
tions; summary  of  H array. 

Out  of  plane  AV  direction 
angle  at  injection. 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evalu- 
ated during  a single  iter- 
ation. 

Vector  of  combined  target 
error  indices  and  net  cost,- 
values  for  the  reference 
and  all  trail  trajectories 
evaluated  during  a single 
iteration. 
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DATAT-8 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

P2 

0 

C 

Vector  of  target  error 
indices  for  the  reference 
and  ail  trial  trajectories 
evaluated  during  a single 
iteration. 

RAD 

I 

% 

G 

Number  of  degrees  in  one 
radian. 

S 

I/O 

H/C 

Target  sensitivity  matrix. 

SCMASS 

I 

G 

S/C  initial  mass. 

S0UT 

0 

C 

• Target  sensitivity  matrix 
in  print-out  units. 

STATED 

I 

■C 

Initial  state. 

ST0L 

I 

N/C 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix. 

ST0RE 

I/O 

C 

Blank  common  variable. 

target 

I/O 

N/C 

Vector  of  desired  target 
values. 

TAR0UT 

0 

C 

Desired  target  values  in 
print-out  units. 

T&RT0L 

I/O 

N/C 

Vector  of  all  possible  tar- 
get tolerances. 

THRUST • 

I 

C 

Mission  thrust  controls. 

TL0W 

I 

N/C 

V 

Limit  of  target  eirror  index 
below  which  optirai2''ation 
only  is  performed. 

I 

C 

Number  of  seconds  in  a day. 

TSTART 

I 

C 

Reference  trajectory  start 
time. 

TUP 

I 

N/C 

Limit  of  target  error  index 
above  which  simultaneous 
targeting  and  optimization 
is  discontinued  and  targeting 

J 


1 


1. ...............i 
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DATAT-9A 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

U 

0 

C 

Selection  of  controls  for  the 
specified  mode  run. 

ULIKET 

I 

N 

Control  bounds. 

UIJATE 

1/0 

N/C 

User  input  weights  on  controls. 

VPARK 

0 

C 

Parking  orbit  velocity  at  in- 
jection. 

WE 

0 

C 

Vector  of  target  weights. 

XMM 

0 

C 

Mean  motion  of  s/c  in  parking 
orbit. 

AZMAX 

1/0 

N/C 

Maximum  launch  azimuth  con- 
straint . 

AZMIN 

1/0 

N/C 

Minimum  launch  azimuth  con- 
straint. 

lASTM 

1/0 

N/C 

Flag  specifying  the  method  of 
computing  the  targeting  sensi- 
tivity matrix. 

PRNML 

I 

N 

Logical  flag  specifying  that  the 
namelist  $TRAJ  be  printed  (TRUE) 
or  not  be  printed  (FALSE) , 

RPl 

1/0 

N/C 

Inner  parking  orbit  radius. 

TGFUEL 

1/0 

N/C 

Fuel  capacity  of  tug. 

TUGISP 

1/0 

N C 

Specific  impulse  of  tug. 

TUGWT 

1/0 

N/C 

Dry  weight  of  tug. 

TUG 

0 

C 

Logical  flag  designating  injec- 
tion computations. 

Local  Variables: 

Variable 

Definition 

K^Wr 

Control 

counter. 

Mission  time  corresponding  to  the  implemen- 
tation of  controls  chosen  from  the  elements 
of  the  THRUST  array. 


TIME 


1 _ _1 


Subroutines  Called; 

Calling  Subroutines; 
Common  Blocks: 


1 J i 1.. i 
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DATAT-9B 


ZEROM,  C0PY,  UXV,  UUITV,  SCAIE,  SUB,  \ECMAG, 
UD0TV,  PRINTD,  INJECT 

T0PSEP 

(BLANK),  CQfNST,  CYCLE,  EDIT,  EPHEM,  GRID,  PRINT, 
PRINTH,  TIME,  TCJPl,  T0P2,  TRAJl,  TRAJ2,  N0RK, 
lASTbi,  TUG 


DATAT-11 


Determine:  U,  PRTURB, 

CKVRTU  if  THRUST  Or 
Initial  Cartesian  State 
Elements  Are  Used  As 
Controls 


^ Are 

Injection  Controls^ 
. Used  / 


Compute:  PTO,'PINC,  PRO, 
DELVO,  CHI,  PSI,  Ui- 
PRTURB,  and  GNVRTU 


Determine  U,  PRTURB,  And 
CNVRTU  If  ENGINE (1), 
ENGINE (10)  Or  SCMASS 
Are  Used  As  Controls 


Determine  Which  Controls 
Are  Initially  Active,  Oh 
Bounds,  Or  Within  The 
Tolerance  Regions  Near 
The  Bounds 


— I. .. 


1 


3.2,3 


Purpose 


Method: 


1 J i 


87  DELU“1 

Subroutine;  DELU  (HS,  WG,  DPSI,  DP2,  NT,  NU,  NTYPE,  SINV, 
PG2,  DUl,  DU2,  DU). 

To  compute  the  control  correction  based  upon 
the  method  of  projected  gradients. 

The,  projected  gradient  algorithfn  used  in  TOPSEP 
is  described  as  follows.  Let: 

U = Set  of  control  parameters; 

E = Set  of  target  errors; 

F = Performance  index; 

F 

G = Performance  gradient  » 

* 

T = Set  of  targets; 

T 

S = Sensitivity  matrix  . 

We  seek  a control  correction  AU  to  increase 
the  performance  (decrease  the  cost)  and 
dec:rease  the  target  error.  Then 

where 

T T -1 

AUj,  =-S^  CSS^)  E 

&iii  =-/aS2  Aoj  S 
II  a-p)  a il 

and 

-1 

T T 

= s CSS  ) s 


p 
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DEtU-2 


Remarks : 


Input /Output:: 

Variable 

DRSI 

DP2 


oL 

■ # 


for  targeting  only 
for  optimization 
for  optimization  only 


i 1,  for  targeting 

DELU  is  called  only  after  transforming  the 
control  space  to  a weighted  space.  Thus,  WS 
and  WG  are  a weighted  target  sensitivity  matrix 
and  a weighted  performance  gradient  respectively. 
The  control  corrections,  therefore,  are  also 
weighted. 


The  performance  correction  is  modified • to 
account  for  an  estimated  region  of  linearity 
(DP2) , This  control  correction  may  then  be 
represented  as  follows; 

= REGI0N  (I-P)  G 


REGION  =- 


E^CSS*®^) 


E * (1+DP2  ) 


G^G  “ (SG)^(SS'^)“^(SG) 


Input/  Argui’ient/ 

Output Common - Definition 


I 


A Target  error  to  be  removed 

during  current  iteration, 

A Estimated  region  of  linear- 

ity in  the  control  space. 


I/O 
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DELU-3 


1 


Input/ 

Variable pu  tpu  t 


Argument/ 

Common 


Definition 


DU  0 A 

DUl  0 A 

DD2  _0  A. 

NT  I A 

NTYPE  I A 

NU  I A 

PG2  0 .A 

SINV  0 A 


WG  I A 

WS  I A 


Total  control  correction 
vector  (not  scaled). 

Performance  control  vector 
(not  scaled). 

Constraint  control  correc- 
tion (not  scaled). 

Number  of  controls. 

Flag  designating  the  type 
of  control  correction  to  be 
made  during  the  current 
itera tion. 

Number  of  controls. 

Magnitude  of  the  projected 
gradient  squared- 

Pseudo- inverse  of  the  target 
sensitivity  matrix  if  NU 
NT;  actual  inverse  of  target 
sensitivity  matrix  if  NU  - 
NT, 

Performance  gradient. 

Target  sensitivity  matrix. 


ALPHA 

Local  Variables : 


Variable Definition 


ALPHA  Scale  on  DUl  when  computing  DU;  if 

not  making  a performance  correction 
ALPHA  set  to  0,  otherwise  set  to  i, 

BETA  ‘ Scale  on  DU2  when  computing  DU;  if 

not  making  a constraint  correction 
BETA  set  to  0,  otherwise  set  to  1. 

Cl  E^  * (SAS*^)  * E 


Variable 


Definition 


C2 


T 

6 * G 


03 


'i 


(S*G)^  * * (S*G) 


P (=VI0RK  (43)) 
PJSGI0N 


SG  (=W0RK  (37)) 


T T -1 

S * (S*S  ) * S*G 

Scale  on  performance  correction 
accounting,  for  the  aasumed  region  of 
linearity. 

S*G 


SST  C^^0RK  (1)) 


T 

S*S 


Subroutines  Called;  C0PY,  INVSQM,  MMABT,  MrlATB,  MMATBA,  ZER0M 

Galling  Subroutines:  SIZE 


Conution  Blocks; 


EDIT,  W0RK 
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DIRECT- 1 


3.2.3A  Subroutine ; 

Purpose; 

Method : 


Input /Out put ; 

Variable 

BIG 

CTHETA 

DFMAX 

DPSI 

DP2 


DIRECT  (DUl,  DU2,  DU,  SINV,  ULIKIT,  WG,  WS,  WU, 

NUD,  KTD) 

To  compute  the  control  correction,Atn . 

The  method  of  projected  gradients  is  used  to  com- 
pute . Preliminary  computations  include: 

o Determining  linear  dependency  among  columns 
of  the  sensitivity  matrix,  S,  thus  averting 
numerical  problems  when  computing  the  pseudo- 
inverse of  S. 

o Determining  which  controls  lie  on  their  re- 
spective bounds,  if  any,  and  which  control 
corrections  violate  the  control  constraints. 

o Determining  the  maximum  allowable  scale  fac- 
tor for  the  current  iteration. 


Input/ 
Out  put 

Argument/ 

Common 

Definition 

I 

C 

Large  constant,  1.E20. 

0 

C 

Cosine  of  optimization  angle. 

I 

c 

Maximum  increase  allowed  in 
the  cost  index  (F)  per 
iteration. 

0 

c 

Target  error  to  be  removed 
during  current  iteration. 

I/O 

c 

Estimated  region  of  linearity 
in  the  control  space. 

92-C 


DIRECT-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

DU 

0 

A 

Unsealed  total  control 
correction. 

DUl 

0 

A 

Unsealed  performance  con- 
trol correction. 

DU2 

0 

A 

Unsealed  constraint  control 
correction. 

E 

0 

C 

Target  errors  of  the  current 
trajectory. 

EMAG 

0 

C 

Target  error  index. 

G 

0 

c 

Performance  gradient. 

GAMA 

0 

c 

Scale  factor  providing  the 
best  control  change. 

GAMMA 

0 

c 

Vector  of  trial  trajectory 
control  change  scale  factors. 

GTRIAL 

I/O 

c 

One-dimensional  search 
constants. 

INACTV 

I/O 

c 

Vector  denoting  which  con- 
trols are  active  (1),  on 
bounds  (0),  or  within 
bound  tol. 

KGMAX 

0 

c 

Index  identifying  the  con- 
trol which  will  reach  bound 
if  is  scaled  by  GMAX. 

ITERAT 

I 

c 

Iteration  counter. 

LtSCCDC 

I 

c 

Blank  common  location  of  the 
inner  products  of  the  columns 
of  the  sensitivity  matrix. 

L0CCM 

I 

c 

Blank  common  location  of  the 
magnitude  of  the  sensitivity 
column  vectors. 

L5JCSDU 

I 

c 

Blank  common  storage  location 
for  the  original  control  cor- 
rection vectors  when  a number 
of  controls  must  be  dropped 
during  an  iteration. 
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DIEECT-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

T 

C 

Blank  common  storage  loca- 
tion for  the  original 
weighted  performance  gradi- 
ent when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

L0CSWS 

I 

C 

Blank  common  storage  loca- 
tion for  the  Original 
weighted  sensitivity  matrix 
when  a number  of  controls 
must  be  dropped  during  an 
iteration. 

MPRINT 

I 

C 

Array  of  UOPSEP  print 
flags. 

NT 

I 

C 

Number  of  targets. 

NTD 

I 

A 

Integer  used  to  variably 
dimension  SINV  and  WS. 

NTYPE 

I 

C 

Flag  designating  the  type 
of  control  correction  to  be 
made  during  an  iteration. 

NU 

I 

C 

Number  of  controls. 

NUD 

I 

A 

Integer  used  to  variably 
dimension  DU,  DUl,  DU2, 
SINV,  ULIMIT,  WG,  WS  and 
WU. 

0SCALE 

I 

C 

Scale  on  the  cost  index  when 
simultaneously  targeting  and 
optimizing. 

PCT 

I 

C 

Percentage  of  the  target 
error  to  be  removed  during 
an  iteration. 

PI 

0 

C 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evaluated 
during  a single  iteration. 
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DIKECT-4 


Var  .\'2.Sle 

Input/ 

Output 

Argument/ 

Common 

Definition 

P1P2 

0 

C 

Vector  of  combined  target 
error  indices  and  net  cost 
values  for  the  reference  and 
all  trial  trajectories  evalu- 
ated during  a single  iteration. 

P2 

0 

C 

Vector  of  target  error  in- 
dices for  the  reference  and 
all  trial  trajectories  evalu- 
ated during  a single  iteration. 

S 

I 

C 

Target  sensitivity  matrix. 

SINV 

0 

A 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix. 

U 

I 

C 

Selection  of  controls. 

ULIMIT 

1 

A 

Bounds  on  controls. 

WE 

I 

C 

Vector  of  target  weights. 

WG 

0 

A 

Weighted  performance 
gradient. 

ws 

0 

A 

Weighted  sensitivity  matrix. 

wu 

0 

A 

Control  weights. 

DPIDS 

0 

C 

The  first  derivative  of  the 
net  cost  function  (PI)  evalu- 
ated at  S = 0. 

DP12DS 

0 

G 

The  first  derivative  of  the 
combined  net  cost  function 
and  target  error  function 
(P1P2)  evaluated  at  ^ =0. 

DP2DS 

0 

C 

The  first  derivative  of  the 
target  error  function  (P2) 
evaluated  at  ^ = 0. 
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DlRECT-5 


Local  Variables; 


Variable 


Definition 


DUIMAG  (=W0RK(1)) 
EPRIWE  C=WORK(10)) 
ES  (=WORK  (16)) 

GAM  (=^>fORlC  (36)) 

GFMAX 

KDEP 

LDEP 

MU 

SSINV  (=WORK  (80)) 

UNEW  (=^0RK  (60)) 

Subroutines  Called: 

Calling  Subroutines; 


Magnitude  of 
Weighted  target  errors. 


Vector  of  maximum  allowable  scale 
factors  for  each  element  of  the 
control  correction. 

Estimate  of  the  scale  factor  which 
will  cause  the  DFMAX  constraint 
to  be  violated. 

Number  of  controls  on  bounds. 

Vector  indicating  which  controls 
are  to  be  dropped  from  the  con- 
trol correction. 

Number  of  active  controls  in  the 
current  iteration. 

Storage  for  the  pseudo- inverse 
of  the  sensitivity  matrix. 

Updated  control  vector  used  to 
compute  INACTV. 


C0PY,  GENMIN,  STEP,  DELTU 
PGM 

(BLANK),  G0NST,  EDIT,  T0P1,  T0P2,  W0RK, 
SIZE 


Common  Blocks 
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DTDUO-1 


3.2. 3B  Subroutine:  BTDUO 


Purpose;  To  compute  the  appropriate  columns  of  the  target- 

ing sensitivity  matrix  which  relate  changes  in 


target  values  to  changes  in  the  initial  state. 

Input /Output: 

Variable 

Input/  Argument/ 

Output  Common 

Definition 

ETA 

I A 

Sensitivity  of  targets  to 
changes  in  final  state 

IJH 

I C 

Array  indicating  active  controls 

M 

I A 

Number  of  targets 

U 

I A 

Number  of  controls 

PHI 

I C 

State  transition  matrix 

SPRIME 

0 A 

Partition  of  sensitivity  matrix 

Local  Variables 

Variable 

Definition 

DXFDXO 

Sensitivity  of  final  state  to 
changes  in  selected  elements  of 
initial  state 

Subroutines  Called:  C0PY,  MMAB 

Calling  Subroutines:  STMTAR 

Common  Blocks: 

lASTM,  T0P2,  W0RK 

Logic  Flow: 

, See  listing 

93 


raGS-1 


3.2.4 

Purpose; 


Method ; 


Subroutine ; FEGS 

To  calculate  the  performance  index j the  target 
errors,  the  targeting  sensitivity  matrix,  and 
the  performance  gradient, 

FEGS  provides  the  Interface  between  the  abstract 
control  space  targeting,  and  optimization  search, 
and  the  actual  low  thrust  trajectory  generation. 
Trajectory  parameters  such  as 

1)  Initial  conditions 

o ecliptic  state  relative  to  primary 
body; 

o injection  from  parTcing  orbit; 
o spacecraft  mass; 

2)  Spacecraft  engine  characteristics; 

3)  Thrust  controls; 

• are  reset  as  specified  by  non-zero  values  of  the 

H array  (control  perturbations) . Subsequently, 
the  trajectory  propagator  is  called  and  trajectory 
information  is  collected. 

Subroutine  FEGS  performs  two  major  functions  for 
TOPSEP  depending  upon  the  input  value  of  IT,  If 
IT  equals  1,  the  target  sensitivity  matrix  (S)  and 
the  performance  gradient  (G)  are  computed  by  finite 
differencing,  A trajectory  is  generated  for  each 


V 
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perturbed  control  resulting  in  the  computation  of 
a column  of  the  S matrix  and  an  element  of  the  G 
vector.  The  perturbations  to  the  controls  are 
input  in  PERT,  a variable  in  the  argument  list, 

• If  IT  is  -1,  a trial  trajectory  is  generated.  In 
this  case  all  the  specified  trajectory  parameters 
are  reset  before  the  trajectory  propagator  is 
called.  After  the  trajectory  is  generated,  the 
performance  index  (F)  and  the  target  errors  (E) 
are  evaluated.  If  IT  is  0,  a grid  trajectory  is 
generated.  Basically  the  same  logic  flow  is  fol- 
lowed as  for  the  trial  trajectory  generation. 

The  primary  differences  are  that  only  one  element 
of  PERT  is  non-aero  and  that  no  trajectory  event 
times  are  stored  in  blank  common. 

Remarks ; When  the  STM  method  of  targeting  is  flagged 


(lASTM  = 1)  subroutine  STMTAR  constructs  F,  E, 
and  S.  Subroutine  FEGS  only  generates  the  trial 
trajectories  and  the  final  reference  trajectory. 


Incut /Output: 

Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 

CHI 

I/O 

C 

In  plane  AV  direction  angle  at 
injection. 

BEIVp 

I/O 

C 

Injection  aV, 

E 

0 

G 

Target  errors  of  the  current 
trajectory. 

ENGINE  (1) 

I/O 

G 

Power  from  solar  array  at  1 au. 
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Input/ 

Variable Output 


Argument / 
Common 


Definition 


EKGIKE(IO)  I/O  C 

F .1  C 

FTR(l)  I C 

G 0 C . 

IT  I A 


ITERAT  I C 

KMAX  I C 

L0CM  I C 

L0CTS  I C 


HIP 

NT 

NXR 


C 

c 

c 


Exhaust  velocity. 

Performance  index. 

Performance  index  of  the 
reference  trajectory  for 
the  current  iteration. 

Performance  gradient, 

1,  generate  perturbed 
trajectories  and 
compute  S and  G 

0,  generate  a grid  tra- 
jectory and  compute 
F and  E 

-1,  generate  a trial  tra- 
jectory and  compute 
F and  E. 

Iteration  counter 
1 or  -1) ; Control  iden- 
tifier for  grid  submode 
(IT  = 0). 

Number  of  thrust  controls 
(THRUST  (I,J))  chosen  to 
be  elements  of  U, 

Blank  common  location  of 
the  current  s/c  mass. 

Blank  common  location  of 
event  times  for  the  ref- 
erence and  all  trial 
trajectories  in  a single 
iteration. 


Eaunch.  planet  identifier 
(normally-  Earth), 

Humber  of  targets. 

Trial  trajectory  counter. 


X 
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Input/  Argument/ 

'Variable Output Common 


definition 


NU 

I 

c 

Kuntber  of  controls* 

PERT 

I 

A 

Vector  of  control  perturba- 
tions « 

PSI 

I/O  ■ 

G 

Out  of  plane  AV  direction 
angle  at  injection. 

S 

0 

C 

Target  sensitivity  matrix. 

scmss 

I/O 

G 

S/C  mass  corresponding  to 
the  trajectory  start  time 
(TSTART) . 

STATEG 

I/O 

C 

S/G  state  corresponding  to 
the  trajectory  start  time 
(TSTART) , 

STATR 

I/O 

G 

Array  of  initial  states 
for  the  reference  and  all 
trial  trajectories  evalu- 
ated during  the  current 
itera tion. 

TARGET 

I 

C 

Vector  of  desired  target 
values. 

TARK0M 

0 

G 

Target  values  evaluated 
for  the  reference  trajec- 
tory. 

TARPAR 

0 

C 

Target  values  of  the  most 
recently  generated  trajec- 
tory. 

TARTR 

I/O 

C 

Target  values  of  the  ref- 
erence and  all  trial 
trajectories  evaluated 
during  a single  iteration. 

TM 

I 

C 

Conversion  constant: 
Number  of  seconds  in  a 
day. 

tstabt 

I/O 

c 

Trajectory  start  time. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

U 

I 

C 

Selection  of  controls  for  tbe 
specified  mode  run. 

VPARK 

C 

Parking  orbit  velocity  at  in** 
j action. 

XMM 

m 

C 

Kean  motion  of  s/c  in  parking 
orbit. 

PRO 

i/<$ 

C 

Radial  distance  at  injection. 

PIKC 

i/^ 

C 

Ecliptic  inclination  at  injec- 
tion. 

PTO 

1/^ 

c 

Injection  time  relative  to 
TLNCH. 

Local  Variables: 


Var  iab  le Definition 


A 

Serai -major  axis  of  parking  orbit. 

CHTRtfL 

The  nominal  value  of  the  control  plus  its 
perturbation. 

ITRIAL 

Trial  step  counter. 

KALI 

Statement  number  to  -which  the  logic  flow 
returns  after  S and  G are  computed. 

KgjUKT 

Control  index. 

IOMEGA 

Longitude  of  the  ascending  node  of  the 
parking  orbit. 

S0MEGA 

Argument  of  periapsis  of  the  parking  orbit 

XECC 

Eccentricity  of  the  parking  orbit. 

XHEAH 

Kean  anomaly  of  the  s/c  in  parking  orbit. 

Subroutines  Called: 


CARTES,  G0KIC,  G^JPY,  PRINTl,  VECMAG,  MAT0UT, 
H0DIU5 
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Galling  Subroui:ines;  GRID,  PGM,  T0PSEP 

Common  Blocks:  (BIANK),  C0KST,  EDIT,  EPHEM,  Tll-E,  T0P1, 

T0P2,-  TRAJl,.  TRAJ2,  W0RK 


BEGS-9 


p/TI  -ni  l ^ ~ ~ II-  r... 

i 

Resei,  Values  Of 
ENGINE  (l)j  engine  (10), 
or  SC.^JyvSS  if  Flagged 
By  Non-Zero  Values  In 
The  H Array 


IT  = 1 


Restore 
ENGINE (1) , 
ENGINE  (10)  .,  Or 
SCHASS  To  The 
Nominal  Values 


IT  = 1 


RETURN 
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3.2.5 
Purpose ; 

Method: 


Remarks : 


Subroutine;.  FGAMA.  (IS) 

To  evaluate  the  net  cost  index  arid  target 
error  index  of  a trial  trajectory. 

Subroutine  FGAMA.  scales  the  control  correction 
A u by  GA1!HA(NTR),  which  is  computed  in  GEKMIN, 
and  calls  PEGS  to  generate  a trial  trajectory* 
Preceding  the  call  to  PEGS  for  the  second  trial 
trajectory  generation,  a computation  is  made  to 
estimate  the  scale  factor  which  will  reduce  the 
value  of  the  final  spacecraft  mass  to  some 
specified  limit  (PTR(l)  - DP),  This  scale 

» 

factor  becomes  the  maxitiium  allowable  scale  for 
’ future  trial  steps,  unless  the  scale  is  further 
restricted  by  explicit  control  bounds.  However, 
no  additional  constraint  is  placed  on  the  scale 
factor  if  the  final  spacecraft  mass  is  increased 
by  taking  larger  trial  steps  in  the  ^u  direc- 
tion. The  scale  factor  is  not  restricted  due 
to  the  performance  constraint  prior  to  the 
second  trial  step  for  lack  of  information  to  make 
an  accurate  estimate. 

The  cost  index  P is  actually  the  negative  of 
the  final  spacecraft  mass.  If  the  cost  index 
is  decreasing  (becoming  more  negative)  in  the 
Au  direction  the  estii-ation  loop  is  bypassed. 
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If  the  loop  must  be  entered  because  the  cost 
is  increasing,  a modification  must  be  made  to 
the  cost  index  values  (FIR)  so  that  the  rou- 
tines MIKl'IUM  and  THPM  may  be  used.  To  find 
the  minimum  value  of  the  final  spacecraft  mass 
the  negative. of  the  cost  index  is  minimized  in 
the  Au  direction. 

Input /Out put; 

Input/  Argument/ 

Variable Output Common  Definition 


DFMAX  I C Maximum  percentage  decrease 

. ■ ' allowed  in  the  s/c  .final 

mass  for  iteration. 


E 0 C 

ET0L  I C 

ETR  I/O  C 

E 0 . C 

FTR  • . I/O  • C 

:g ■ ‘■O'',,.';-'/'  ; C' 

GAMMA  . ■ I . C 

GTRIAK2)  I/O  . G 


‘Target  errors  of  the  cur-  - 
rent  trajectory. 

Target  tolerances. 

Array  of  target  errors  of 
the  reference  and  all  trial 
trajectories  evaluated  dur- 
ing a single  iteration. 

Cost  index  of  the  current 
trajectory. 

Vector  of  cost  indices  of 
the  reference  and  all  trial 
trajectories  evaluated  dur- 
ing a single  iteration, 

Perfb nuance  gradient. 

Vector  of  trial  trajectory 
controi  change  scale  fac- 
tors , 

Maximum  allowable  value 
for  GAMMA. 
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• Input/  Argument/ 


Variable Output Common 

IS  I A 

L0CDU  I G 

L0CSDU  I C 


L0CSI  I G 

NT  I C 

KTR  0 G 

,NU  I C 

0SGALE  I C 

PI  o c 

P1E2  0 C 

P2  0 C 


G 


Definition 


Trial  trajectory  number. 

Blank  common  location  of 
the  control  correction 
vector 

Blank  common  loc.;tion  of 
the  trial  step  (GAtRlA (NXR)* 
AU);  used  as  such  only 
when  generating  trial  tra- 
jectories . 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensitivity 
matr  ix. 

Number  of  targets. 

Trial  trajectory  counter 
(NTR  = 1 for  the  iteration 
reference  trajectory). 

Number  of  controls. 

Scale  on  the  net  cost 
index  PI  when  simultane- 
ously targeting  and  opti- 
mizing. 

Vector  of  net  cost  values 
for  the  reference  and  all 
trial  trajectories  evaluated 
during  a single  iteration. 

Vector  of  combined  target 
error  indices  and  net  cost 
values. 

Vector  of  target  error 
indices  for  the  reference 
and  all  trial  trajectories 
evaluated  during  a single 
iteration. 

Target  values  of  the  most 
recently  generated  trajec- 
tory. 


TARTAR 


0 
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input/ 

Variable Output 


Argument/ 

Cofflmon 


Definition 


WE  I ' G Vector  of  target  weights. 


Local  Variables; 


Variable 


Definition 


DF 


Maximum  decrease  allowed  in  the  final 
s/c  mass. 


DPlDS 

EPRIME  (=We}RK(l)) 


First  derivative  of  PI  evaluated  at 
GAMMA  <1)  = 0. 

Vector  of  target  errors  divided  by  <’ 
tolerances. 


FMAX 

FTEST  C^W0RK(55)) 
GDU  (=W0RK(13)> 


GTR(l)  (=W0RK(5O)) 
GTR(2)  C=W0RKC51>) 
GTR(3)  (=W0RK(52)) 
6TR(4)  (=W0RK(53)) 
GTS  X=W0RK(7)) 


Estimated  maximum  cost  evaluated  in 
the  Au  direction. 

Vector  of  cost  indices  corresponding 
'to  the  scale  factors  GTR(I),  I = 1,  3 
where  GTR(l)  < GTR(2)  < GTR(3) . 

Linearized  approximation  to  change 
in  cost  function  required  to  perform 
a minimum  - norm  correction  back  to 
the  targeted  manifold, 

om'A  Cl) . 

lOK  { GA1IMA(2),  GTR(4)  } 

MAX  { GAMMA  (2),  GTR(4)  } 

Scale  factor  corresponding  to  FIIAX, 

Intermediate  storage  in  GDU  computa- 
tion. 


lEER  Flag  set  to  1 to  direct  MIHMUM  and 

THPM  to  compute  GTR(4)  given  F(GTR(4)) 
using  the  prescribed  polynomtnal 
expansion. 
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Subr ou tines  Called; 


Calling  Subroutines: 


C0PY,  FEGS,  MT0UT,  MINMUM,  15MAB,  tIMATB, 
tmTBA,  NEGMT,  SCALE,  THPM,  ZER0M 

GENMIN  • 

(BLANK),  EDIT,  T0P1,  T0F2,  W0RK 


Common  Bloclcs ; 


FGAMA-6 


Logic  'Flowi 


FTR(l)  -DF<FMAX 


Yes 


1 
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THPM 


Estimate  The  Trial  Step  Scale 
Factor  Corresponding  To  The 
■Maximum  Allowable  Decrease  In 
Final  S/C  Hass  Using  A 3-Point 
Curve  Fit 


MINMUM 

Estimate  The  Trial  Step  l 

Scale 

Factor  Corresponding  To 

The 

Maximum  Allowable  Decrease 

In  Final  S/C  Mass  Using 

a 

2-Point,  1-Slope 

GTRCA)  < GTRIAL<2) 


GTRIAL(2)  = GTR(4) 


GAMMA  C3)>  GTRIALC2) 


GAMMA (3 ) =GTRIAL (2) 


t 


GENMIN-1 


,) 


; 
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3.2.6  Subroutine;  GENMIN  (X,  Y,  DYDXl,  G2RIAL,  YES,  MIN) 

Purpose;  To  choose  the  best  control  change  scale  factor 

based  on  a one- dimensional  search  in  the  new 
control  vector  direction. 


Remarks ; 


Inpu t /Output t 


Variable 


The  best  scale  factor  will  be  defined  as  that 
which  provides  for  the  minimum  value  of  the  net 
cost-function  as  described  in  subroutine  SIZE. 
The  one  dimensional  search  will  consist  of  a 
series  of  second  and  third  order  polynomial 
curve  fitting  techniques. 


Input / Argument (A) / 

Output Common  (C) Definition 


DYDXl  I A 

GTRIAL(l)  I A 

GTRIALC2)  I A 

GTRIALC3)  I A 

GTRIALC4)  I A 

GTRIALC5)  I A 


MIN  0 A 


Value  of  the  first 
derivative  of  the  net 
cost  function  evaluated 
at  X(1)=0 

If  X(I+1)<GTRIAL(1)*X(I), 
then  X(I+1)  is  set  equal 
to  GTRIAL(l)  *X(I) 

Maximum  allowable  scale 
factor  value 

The  percentage  of  X(I+1) 
to  X(I)  above  which  the 
search  will  be  terminated. 

The  percentage  of  YES (I)  to 
YCl+2)  below  which  the 
search  is  terminated 

Flag  designating  the  extent 
of  curve  fitting  in  the 
new  control  direction  (i.e., 
GTRIAL(5)=4  signifies  all 
four  techniques  may  be  used) 

Pointer  designating  the 
minimising  scale  factor 

X(1)=0,  value  of  scale 
factor  associated  with 
current  net  cost  function  value 


X(l) 


I 


A 
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GEMN-2  ' 


Iitpu  t /Output ; - Continued 


Variable 


Input/  Argument CA)/  ' 

Output Common  (C) Definition 


X(2)  I 

X(3)  0 


X(4)  0 

X(5)  0 

X(6)  0 

XCD  I 


X(2)  Y{6)  0 

YES  . 0 


A Value  of  scale  factor  for 

first  trial  net  cost-function 
evaluation 

A Scale  factor  returned  from 

"two  point,  one  slope" 
curve  fitting  routine 

A Scale  factor  returned  from  . 

"three  point,  one  slope" 
curve  fitting  routine 

A * Scale  factor  returned  from 

"three  point"  curve 
fitting  routine 

A Scale  factor  returned  from 

"four  point"  curve  fitting 
routine 

A Value  of  current  net 

cost-function 

A Trial  net  cost-function 

values  associated  with 
X(2)->X(6) 

A Vector  of  estimates  of  net 

* cost-function  values 
returned  from  the  curve 
fitting  routines 


Local  Variables; 


Variable  Definition 

MAX  The  number  of  trial  net  cost-function 

values  which  must  be  tested  for 
the  local  minima 

HENSV  . The  number  of  a trial  net  cost-function 

• value  which  is  a local  minimum  but 
not  necessarily  the  global  minimum 
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GEKMlK-3 


Subroutines  Called; 
Calling  Subroutines; 
Common  Blocks; 


BUCKET,  FGAMil,  MINMUtI 

SIZE 

Hone 


I 


-tMD  >GTRIAL(3) 

x(2) 


FGAMA 

Compute  Y(3) 


2;GTRUL  (4) 


M 3 


Yes 


GENMIN-5 


GENHIN-8 
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GRID-1 


3 . 2 . 7A  Subroutine 
Purpose; 

Method : 


Remarks : 


Input /Output ; 

Variable 

CNVRTT 

E 


: GRID 

To  generate  a family  of  trajectories  in  order 
to  obtain  performance  and  error  index  infor- 
mation. 

Consider  an  NU-dimensional  control  space  and  a 

nominal  control  vector  u,  A grid  of  trajectory 

target  error  indices  and  performance  indices  is 

generated  based  upon  two  steps  from  the  nominal 

control  vector  in  each  control  direction.  The 

til 

first  step  in  the  i control  direction  is 
til 

specified  by  the  i element  of  PRTURB,  The 
second  step  for  the  same  control  is  specified 
by  HMULT^  * PRTURB^  . 

The  user  can  take  advantage  of  the  cycling 
capability  of  the  TOPSEP  mode  to  specify  more 
than  two  steps  in  each  of  the  control  directions 
by  stacking  cases. 

Input/  Argument/ 

Output  Common  Definition 

I C Conversion  constants  from 

internal  target  units  to 
output  target  units. 

I C Target  errors  of  current 

trajectory, 

C Target  ei:ror  index  of 

nominal  trajectory. 


ETR(1,  1)  0 


J 


1 
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GRID-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

De finition 

F 

I 

G 

Performance  inde^jc  of 
current  trajectory. 

FTR(l) 

0 

G 

Performance  index  of 
nominal  trajectory. 

-HMULT 

I 

C 

Vector  containing  the 
scale  on  the  elements  of 
PRTURB  for  the  second 
• step  in  each  control  di- 
rection. 

HERAT 

0 

C 

Index  specifying  which 
control  element  is  being 
changed. 

K0NVRJ 

0 

c 

Index  spEicifying  the  step 
number  in  the  control  di- 
rection under  consideration. 

XABELT 

I 

G 

Hollerith  labels  for  spec- 
ified targets. 

L0CDU1 

I 

C 

Location  in  blank  common 
of  the  first  control  steps. 

L0CDU2 

I 

C 

Location  in  blank  common 
of  the  second  control 
steps. 

L0GEM1  ■ 

X 

C 

Location  in  blank  common 
of  the  target  error  indices 
associated  with  the  first 
control  steps. 

L0CEM2' 

I 

C 

Location  in  blank  common 
of  the  target  error  indices 
’ associated  with  the  second 
control  steps. 

L0CEN 

X 

c 

Location  in  blank  common 
of  the  target  errors  of  the 
nominal  trajectory. 

10CE1 

X 

% 

location  in  blank  common 
of  the  target  errors  associ- 
ated with  the  first  control 
steps. 

PERT  C = TK7ATE) 


1 


GRID-3 


Definition 

Location  in  blank  contnon 
of  the  target  errors 
associated  with  the  second 
control  steps. 

Location  in  blank  common 
of  the  performance  indices 
associated  with  the  first 
control  steps. 

Location  in  blank  ccmmon 
of  the  performance  indices 
associated  with  the  second 
coctrol  steps, 

Humber  of  targets. 

Flag  used  to  set  the 
branch  of  logic  followed 
in  PEGS  (always  set  to  1). 

’Humber  of  controls. 

Perturbations  to  the  con- 
trols for  the  first  step 
in  each  control  direction. 

Blank  common  variable  for 
storage. 

Vector  used  to  compute 
target  error  indejc,  containing 

2 

TART0L(I) 

Working  storage. 


Definition 


actor  used  to  transfer  the  control 
teps  to  PEGS  where  F and  E are 
imputed. 
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• 

CRIP-4 

Variable 

Definition 

WET0L  ( = S) 


Array  whose  off-diagonal  elements  are 
zero  and  whose  diagonal  elements  are 
WECI) 


Subroutines  Galled; 
Calling  Subroutines; 
CoTomon  Blocks: 

Logic  Plow: 


C0PY,  PEGS,  MMATBA,  PRINT2,  ZER0M 

I 

T0PSEP 

(blank),  edit,  grid,  prints,  T0P1,  T0P2,  W0RK 


PEGS 


Generate 

Nominal  Trajectory 


Compute  FTR  and  ETR 
and  Store  E in  Blank  Common 


I 


1 


123-B 


lNJECT-1 


3.2.7B  Subroutine;  IRTECT 

Entry  Eoints!  M^DINJ 

TUGIRJ 


Purpose: 

Method: 


To  generate  tug  injection  data 

The  analytic  discussion  of  the  injection  process 

may  be  found  in  Reference  1,  Section  9,5,  page 

124. 


Remarks : Subroutine  INJECT  consists  of  three  related  com- 

putational blocks.  Each  block  corresponds  to  an 
entry  point. 

o INJECT,  computation  of  outer  parking  orbit 
and  injection  parameters:  PRO,  PING,  PTO, 

DELVO,  CHI,  and  PSI. 

o MOiDINJ , computation  of  the  initial  state  based 
upon  perturbed  injection  parameters, 
o TUGINJ , computation  of  inner  parking  orbit  and 
fuel  requirements  for  the  parking  orbit  transfer. 


Input /Output : 

Input/ 

Argument / 

Variable 

Output 

Common 

Definition 

AZMAX 

I 

C 

Maximum  launch  azimuth  constraint. 

AZMIN 

1 

C 

Minimum  launch  azimuth  constraint. 

CHI 

I/O 

c 

In-plane  nV  direction  angle  at 
injection. 

DELVO 

I/O 

C 

dV  at  injection. 

ECEQ 

I 

c 

Transformation  matrix  from  Earth 

equatorial  to  ecliptic. 


H 


I 


C 


Array  of  control  perturbations. 


123-C 


INJECT- 2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

1NJI;?C 

I 

G 

Location  of  injection  parametera 
in  control  vector. 

NLP 

I 

C 

Launch  planet  designation. 

PING 

I/O 

C 

Ecliptic  inclination  of  outer 
parking  orbit. 

PMASS 

I 

C 

Vector  of  planetary  masses. 

PRO 

I/O 

c 

Geocentric  radial  distance  to 
S/C  at  injection. 

PSI 

I/O 

c 

Out-of-plane  4V  direction  angle 
at  injection. 

PTO 

I/O 

c 

Injection  time  relative  to  launch 
epoch. 

RAD 

I 

c 

Angle  conversion  constant  (radians 
to  degrees). 

EPl 

I 

c 

Inner  parking  orbit  radius. 

SCMSS 

I 

c 

Initial  S/C  mass. 

STATED 

I/O 

c 

Initial  S/C  state. 

TGHIEL 

I 

c 

Fuel  capacity  of  tug  vehicle. 

TUG 

I 

G 

Logical  flag  specifying  injection 
computations  if  TRUE, 

TUGISP 

I 

C 

Specific  impulse  of  tug  vehicle. 

TUGWT 

I 

G 

Dry  weight  of  tug  vehicle. 

U 

I 

C 

Control  vector. 

VPARK 

I/O 

C 

Parking  orbit  velocity  at  injection. 

SMM 

I/O 

C 

S/G  mean  motion  in  outer  parking 

orbit . 


I 


J 


1 
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INJECT- 3 


Local  Variables; 

Variable 

ANGLE  (=  NgSRK(30)) 

DELVA  (=NaRK(32)) 
DELVB  (=  NCiI!K(33)) 
DELVl  <=  W0EKC4D) 
EC  C=  WOfRK(40)) 

EQIMAX  (=  WORK (28)) 
EQIMIN  (=  W0RKC29)) 
EQIl  (=  W<3EK(31)) 

EQI2  (=  Wfl(RK(27)) 

GRAY 

RHILAT 

STATEQ  (=  W0RK(21)) 
VINE  (“  WORK(39)  ) 
WFUELA  (=  WORK(35)) 
NFOELB  (=  WORK(36)) 
WFDELT  (=  Wg{RK(38)) 
WFUELO  (=WORK(37)) 

NFUELl  (=  N0RK(42)) 

NT0T  <=  W0RK(34)) 

XECC 


Definition 

Plane  change  required  during  parking 
orbit  transfer. 

First  impulsive  AV, 

Second  impulsive  AV, 

Single  maneuver  injection  AV. 

Eccentricity  of  hyperbolic  escape  orbit 
for  single  maneuver  trajectory. 

Maximum  equatorial  inclination  constraint. 

Minimum  equatorial  inclination  constraint. 

Equatorial  inclination  of  inner  parking 
orbit . 

Equatorial  inclination  of  outer  parking 
orbit . 

Gravitational  constant. 

Latitude  of  launch  site. 

Initial  state  in  equatorial  coordinates. 

Hyperbolic  excess  velocity 

Fuel  required  for  first  tug  maneuver. 

Fuel  required  for  second  tug  maneuver. 

Total  fuel  requirement. 

Fuel  required  for  third  tug  maneuver 
(injection) . 

Fuel  required  for  single  tug  maneuver 
(injection)  from  inner  parking  orbit. 

Total  tug  weight  plus  payload  prior  to 
any  maneuvers. 

Eccentricity  of  outer  parking  orbit. 


123-E 


IHOEGX-4 


STibroutlnes  Called: 
Calling  Subroatitiest 
Common  Blocks! 


ADD,  MMATB,  SCALE,  UDOTV,  UNITV,  UXV,  VECMAG 
PGM,  PEGS,  TREK,  STMTAR 

C^NST,  EPHEM,  TtiPl,  T0P2,  TEAJl,  TRAJ2,  TUG, 
W^RK 


Logie  Flow! 


See  listing 
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3,2,8  Subroutine:  (X,  Y,  DYDlCl,  XMIH,  YHIN,  lERR) 

Entry  Points;  ' 

THEM 
THPj^SM 
E^MIN 


Purpose; 


Input /Output; 
Variable 
DYDXl 

IEEE. 

X 

XMIN 

Y 

YMIH 


To  estimate  a local  minimum  of  the  cost 
function  Y(X)  and  the  minimizing  independent 
variable  X*  by  fitting  selected  sample  points 
with  a quadratic  or  cubic  polynomial. 


I/O 

I 


0 


I 


0 


I 


0 ■ 


Argument (A) / 

Coromon  (c)  Definition 

A Value  of  the  first  derivative 

of  Y with  respect  to  X 
evaluated  at  X(l)  = Q, 

A Elag  whose  non-zero  value 

Indicates  that  two  of  the 
given  X values  are  identical. 
A Vector  of  independent 

variable  sample  values 
A Minimizing  independent 

variable  X* 

A Vector  of  cost  function 

sample  values 

, A Local  minimum  of  the  cost 

function*  y(X*) 


I 


J 


I 


1 


1 
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HlKMUM-2 


local  Variables: 


Variable 


Definition 


A Cubic  polynomial  coefficients 

Subroutines  Called;  None 
Calling  Subroutines:  GEKMIN,  FGAMA 


Gotmnon  Blocks: 


Method : 


t-i 


None 

The  function  Y(X)  is  approximated  by  either  a 
second  or  third  order  polynomial  in  order  to 
compute  analytically  the  minimizing  parameter 
X*.  The  polynomial  approximation  is  of  the  form 
n 


Y(X)  = PCX) 


l: 


i=0  • 


where  n=Xorn=3,  The  following  four  cases 
describe  the  method  of  approximation  and  the 
resulting  minimization  process 
Case  1:  Y is  fitted  with  a quadratic  polynomial  based  on 

1)  Y(0) 


2)  ^1 
dx'x=0 

3)  Y(X  ) where  X >0  is  an  initial  estimate  of  X* 
□ o 

The  quadratic  polynomial  coefficients  are 
calculated  from  the  formulae 


YCO) 


a = 

1 dX'X=0 


Y(X  )-a  a 
- _ o o , i 

o 


X 

o 
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The  independent  variable  value  minimizing  the  * 
quadratic  is 


Y is  fitted  with  a cubic  polynomial  based  on: 

1)  ’ICO) 

dX*X=0 

3)  where  X^>0  is  a sample  value 

4}  where  X^>0  is  a sample  value 

Tne  cubic  polynomial  coefficients  are  calculated 
from  the  following  formulae 

X “ max  {x^,  X^} 

oC  »=  min{  X^,  } / p, 

a - Y(0) 

U ■ 

1 “ dx|x=0 

fyCXa)  “ a^Y(X)  - la(l-fa)  a, 

®2  “L ^ 

— (l+a+a^)a^  ^ 

„ f Xaa.  + a (1+a)  + a^Y(X)  - Y(otX)  1 (X 
3 “ L ° 1-a  -1 

The  independent  variable  value,  X*  minimizing  ? is 


j 

1 


1 


J 


Case  4 


MimiUH-5 


A cuTsic  polynomial  is  fitted  to  Y(X^),  Y(X^), 
Y(X2)  » Y(xp,  Tne  formulae  for  the  polynomial 


coefficients  are  as  follows 


Y.  = y(x.) 

i a 


Bi^  - X^ 

^ij  “ ^ j 


^10^0*^30 


'^10*^21^31 


^20‘^2l‘^32  So'^31^32 


^ ‘^lO^ZoSo  ^ ‘^lo‘^2l‘^31  ^ ^20*^21^32  ^ 


^W^2^ 


^3oSl*^32  ^ 


A » - ^^31'^^31'^^32^  ,,  ^^20'^^30'^'^32^  „ 

^ ‘^loSo‘^30  " So'^2l‘^31  " 


*^^10‘^^30‘^^31) 

'^20'^2l‘^32 


^30!^3l‘^32  ^ 

The  independent  variable  value  minimizing  P is  the  same*  as 
that  in  Case  2: 


X*  -f-A,  + rT~-  ' 1 


3,2.9 

Purpose 

Method: 


1 1- 


132  PGM-1 

Subroutine:  PGM 

To  generate  a targeted  and  optimisied  reference 
trajectory, 

PGM  (Projected  Gradient  Method)  is  the  organ- 
izational routine  for  the  targeting  and  opti- 
mization submode.  The  logic  for  a complete 
iteration  may  be  found  in  this  routine.  Basi- 
cally, the  iterative  scheme  proceeds  as  follows: 
o A reference  trajectory  is  generated 
using  the  namelist  input  variables  in 
$TRAJ. 

o The  target  error  index  is  calculated, 
o The  method  of  control  correction  is 
determined  and  convergence  is  tested, 
o Target  sensitivities  to  changes  in 
controls  are  computed  by  numerical 
differencing  or  STM  techniques, 
o A control  correction  is  computed  and 
scaled. 

o The  control  correction  is  applied  to 
the  current  control  vector. 

0 The  trajectory  associated  with  the 
new  control  vector  becomes  the  refer- 


ence trajectory  for  the  next  iteration 


PGH-2 


This  process  continues  until  convergence  has 
been  achieved  or  the  maximum  number  of  itera- 


tions has  been  reached. 


Remarks : 


A check  is  made  on  the  remaining  central 
processor,  (CP),  time  after  every  iteration. 
If  the  estimated  processor  time  for  the  next 
iteration  is  larger  than  the  remaining  CP 
time,  the  iteration  process  is  terminated. 


Input/Output : 


Variable 


DELVO 


Emc 


EPS0N 


Input/ 

Output 


ETR  (1,1)  0 


Argument/ 

Common 


Definition 

In  plane  AV  direction 
angle  at  injection. 

Injection  AV, 

Target  errors  evaluated 
for  the  current  trajectory. 

Target  error  index. 

Scalar  multiple  for  con- 
trol perturbations* 

1=1,  ST;  Target  errors 
of  the  reference  trajectory 
for  the  current  iteration. 


FTR(l) 


GAMA 


Performance  index  of  the 
current  trajectory. 

Performance  index  of  the 
reference  trajectory  for 
the  current  iteration. 

Scale  factor  providing  the 
best  control  change. 


J 
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Input/ 

Variable Output 


Argument/ 

Common 


Definition 


H I/O  C 

INJL0G  I . G 

INSG  I/O  G 

ITERAT  0 C 

KMAX  I C 

K0NVRJ  I C 

L0CDU  I C 

L0CDU1  I C 

L0CDU2  I C 

I0CRFM  I C 


C 


Control  perturbation  array. 

Index  on  the  control  pre- 
ceding the  injection  con- 
trols in.  the  vector  U, 

Flag  set  when  S and  G are 
not  calculated  for  current 
iteration. 

Iteration  counter. 

Humber  of  thrust  controls 
(THRUST (I, J))  chosen  to  be 
mode  controls  (U) , 

-Convergence  flag. 

Blank  common  location  of 
the  total  control  correc- 
*tion  vector  (not  scaled 
by  GAMA) . 

Blank  common  location  of 
the  performance  control 
correction  vector  (not 
scaled  by  GAMA) . 

Blank  common  location  of 
the  constraint  control 
correction  vector  (not 
scaled  by  GAtiA) , 

Blank  common  location  of 
the  S/G  masses  evaluated 
at  event  times  for  the 
reference  and  all  trial 
trajectories  in  a single 
iteration. 

Blank  common  location  of 
the  pseudo  inverse  of  the 
weighted  sensitivity 
matrix. 


L0CSI* 


I 


j 


I 


J 


i .. 
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PGM-4 


Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

LfiiCTS 

I 

C 

Blank • common  location  of 
event  times  for  the  refer- 
ence and  all  trial  trajec- 
tories in  a single  iteration 

L0GUL 

I 

C 

Blank  common  location  of 
minimum  and  maximum  control 
bounds  (ULIHIT). 

L0CWG* 

I 

C 

Blank  common  location  of 
the  weighted  performance 
gradient. 

L0CI'?S* 

I 

C 

Blank  common  location  of 
the  weighted  sensitivity 
matrix. 

L0CWU 

I 

C 

Blank  common  location  of 
the  control  weights. 

L0CXR 

I 

C 

Blank  common  location  of 
the  6-component  state 
vectors  associated  with 
the  event  times  of  the 
reference  and  all  the 
trail  trajectories  evalu- 
ated during  a single 
iteration. 

MIW 

I 

C 

Index  of  the  scale  factor 
in  the  GAMMA  vector  which 
provides  the  best  control 
correction. 

NLP 

I 

C 

Integer  designation  of  the 
launch  planet. 

NT 

I 

C 

Number  of  targets. 

NTNP 

I 

C 

Vector  of  primary  bodies 

associated  with  the  event 
times  of  the  reference  and 
all  trial  trajectories  in 
a single  iteration* 


*Arrays  may  be  in  compressed  form  if  controls  have  been 
dropped  during  the  iteration. 


Variable 

Input/ 
Out out 
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Argument/ 

Common 

PGM-5 

Definition 

NTR 

I 

C 

Trial  Trajectory  counter. 

NU 

I 

C 

Number  cf  controls. 

PMASS 

I 

C 

Vector  of  planetary  gravi- 
tational constants. 

PRTUEB 

I 

C 

Vector  of  control  pertur- 
bations . 

PS  I 

t 

c 

Out  of  plane  AV  direction 
angle  at  injection. 

STATEO 

i/eJ 

c 

S/C  state  at  trajectory 
start  time  for  the  reference 
trajectory  of  a given  iter- 
ation. 

STATR 

Vi 

c 

Array  of  initial  S/C  states 
for  the  reference  and  all 
trial  trajectories  of  a 
given  iteration. 

TARN0M 

Vi 

c 

Target  values  evaluated 
for  the  reference  trajectory 

TARTR 

I 

c 

Target  values  evaluated  for 
the  reference  trajectory 
and  all  trial  trajectories 
in  a given  iteration. 

U 

1/0 

c 

Selection  of  controls  for 
the  specified  mode  run. 

VPARK 

i 

c 

Parking  orbit  velocity  at 
injection. 

WE 

I 

c 

Vector  of  target  weights. 

XMM 

0 

c 

Mean  motion  of  S/C  in  park- 
ing orbit. 

lASTH 

I 

c 

Flag  specifying  method  of 
computing  the  targeting 
sensitivity  matrix. 

IM0DE 

0 

c 

TOFSEP  submode  flag. 
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Variable 

Input/ 

Outnut 

Argument/ 

Common 

Definition 

PRO 

I 

C 

R&idial  distance  of  5/C  at 
injection. 

PING 

I 

C 

Ecliptic  inclination  of  S/C 
at  injection. 

PTO 

I 

c 

Injection  time  relative  to 
launch  epoch. 

TUG 

I 

c 

Logical  flag  specifying  in- 
jection computations  (TRUE). 

Local  Variables! 

Variable De  finition 


K^UNT 

Index  counter  for  the  control  vector  U . 

TCPITR 

CP  time  for  the  first  iteration  (exclud- 
ing reference  trajectory  generation). 

TCPK/W 

Current  CP  time  relative  to  the  start 
of  the  job. 

TCPREF 

CP  time  from  job  start  to  the  end  of 
the  reference  trajectory  generation. 

Subroutines  Called: 

C?«PY,  PEGS,  WMATBA,  PRIKTO,  SEC0ND,  SIZE,  STEP,  TEST, 
TItlELIM,  ZER^,  STMTAR,  INJECT 

Calling:  Subroutines: 

T(?PSEP 

Common  Blocks: 

(BLANK),  C0NST,  EDIT,  EPHEM,  T0P1,  T{3P2,  TRAJl, 
TRAJ2,  W0RK,  lASTM,  TUG 

-8 


I 


Scale  the  Control 
Correction  and  Add 
To  The  Original 
Control  Vector 


Choose  the  Best  Trial 
Trajectory  To  Be  The 
Reference  Trajectory  for  The 
Next  Iteration.  Reset: 
TARN5^H,  E,  EMAG  and  F 


Reset  Blank  Coinmon  Storage 
For  the  Next  Iteration: 
ST0RE  CL0CTS) 

ST0RE  (L0CRFM) 

NTNP 


INJL0G  >=  0 
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3.2.10  SubroutitiiJ 

.;  PRIOTO 

(KFLAG) 

Entry  Points; 

PRIKTl, 

PRINT2,  PRINTS 

Purpose; 

To  provide  print  summaries  for  the  various 

TOPSEP 

submodes . 

Remarks : 

An  iteration  stimmary,  a 

perturbed  trajectory 

summary 

■,  a grid  summary 

, <hx  a)  termination  summary 

is  printed  depending  up^  the  entry  point  called. 

Input /Output; 

c 

Variable 

Input/ 

Output 

Argument/ 

Common 

De  finition 

CNVRTT 

I 

C 

Target  parameter  conver- 
sion constants. 

GNVRTU 

V 

1. 

C 

Control  parameter  conver- 
sion constants. 

DPS  I 

I 

C 

Target  error  to  be  removed 
during  current  iteration. 

DP2 

I 

c 

Region  of  linearity  in 
control  space. 

E 

I 

c 

Target  errors. 

EMAG 

I 

c 

Target  error  index. 

ET0L 

I 

c 

Target  tolerances. 

ETR 

I 

c 

Array  of  target  errors  for 
iteration  trial  steps. 

F 

I 

c 

Performance  index. 

FTR 

I 

c 

Vector  of  performance 
indices  for  iteration 
trial  steps. 

G 

I 

c 

Performance  gradient. 

GAMA 

I 

c 

Optimum  control  change 
scale  factor. 
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Input/  Argiuuent/ 


Variable Output Comnton 

ITERAT  I C 

KFIAG  I A 

K0KVRJ  I C 

K0UNT  I C . 

LABEL!  X C 

L0CDU  X C 

L0CDU1  I C 

L0CDU2  I C 

L0CEM1  X C 

L0CEM2  r C 

L0CEN  I C 

L0CE2  I C 

L0CF1  I G 


Definition 


Iteration  number. 

Print  specification  flag. 

Convergence  flag. 

Index  on  control  under 
consideration, 

Hollerith  target  labels. 

Blank  common  location  of 
total  control  correction 
vector. 

Blank  common  location  of 
performance  control  correc'* 
tion  vector. 

Blank  ccitiraon  location  of 
the  targeting  control 
correction  vector. 

Blank  common  location  of 
the  target  error  indices 
associated  with  the  first 
step  of  the  control  grid. 

Blank  common  location  of 
the  target  error  indices 
associated  with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the  target  errors  associated 
with  the  first  step  of  the 
control  grid. 

Blank  common  location  of 
the  target  errors  asso- 
ciated with  the  second 
step  of  the  control  grid. 

Blank  common  location  of 
the.  performance  indices 
associated  with  the  first 
step  of  the  control  grid. 


W- 1 

i 

1 

1 

I t * 
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/' 

Input/ 

Argument/ 

\ 

V 

Variable 

Output 

Common 

Definition 

L0CF2 

I 

C 

Blank  common  location  of  the 
performance  indices  asso- 
ciated with  the  second  step 
of  the  control  grid. 

NT 

I 

C 

Number  of  targets. 

KU 

I 

C 

Number  of  controls. 

PG2 

I 

C 

The  square  of  the  projected 
gradient  magnitude. 

PRTURB 

I 

C 

Cont  rol  perturbation. 

S 

I 

C 

The  sensitivity  matrix. 

TARGET 

I 

C 

Desired  target  values. 

TARPAR 

I 

C 

Target  values  of  perturbed 
trajectories . 

TARTR 

I 

c 

Target  values  of  the  trial 
trajectories . 

U 

I 

c 

Control  vector. 

LABEL 

I 

c 

Hollerith  labels  for  all 
possible  targets. 

XINC 

X 

c 

Ecliptic  inclination. 

(^HEGA 

I 

c 

Longitude  of  ascending  mode. 

S0MEGA 

I 

c 

Argument  of  periapsis. 

xmean 

X 

c 

Mean  anomaly. 

ta 

I 

c 

True  anomaly. 

Local  Variables; 

Variable 

Definition 

CDD  ( = 

i WOPJt(121)) 

The 

to 

scaled  control  change  (converted 
output  units) . 

DU10UT 

( = N0RK(I)) 

Converted  performance  control  change. 

DD20UT 

( “ W0RK(21)) 

Converted  constraint  control  change. 

1 


1 


j 


J 
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Variable 

Definition 

ENCiH  ( =W(3lRK(73)) 

Converted  target  errors  of  the  nomi- 
nal  trajectory. 

ETUifUT  ( = WdRK(85)) 

Converted  target  tolerances. 

E10UT  ( = W0RK(61)) 

Converted  target  errors  of  the  first 
step  grid  trajectories. 

E20UT  ( = W0RKC67)) 

Converted  target  errors  of  the 
second  step  grid  trajectories. 

TAR(SUT  < = W0RK(79)) 

Converted  target  values. 

U0LD  < =UORK(10D) 

Converted  control  vector  of  previous 
iteration. 

U(2UT  ( =W0RK(41)) 

Converted  control  vector. 

W0RK 

Working  storage. 

IST0PN 

Hollerith  labels  of  requested  stop- 
ping conditions . 

K0FF 

Hollerith  labels  of  actual  stopping 
conditions. 

Subroutines  Called; 
Calling  Subroutines: 
Conmon  Blocks: 


SCALE,  STEP 

PEGS,  GRID,  PGM,  TREK 

(BLANK),  GRID,  PRINTH 


STMTAR 

TtfPl,  T0P2,  W0RK,  TARGET 


Losic  Flow 


/ 


L46 


PRlNTO-5 


Print  Grid  Summary  Variables: 
TARGET,  ET0L,  UBELT,  EN0M, 
U0UT,  DU10UT,  DU20UT,  ElOUT, 
E20UT,  ETR(l),  FTR(l) 


r ~\ 


RETURN 
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3*2.11  Subroutine:  PRINTD 

Purpose:  To  print  submode  input  summaries. 

Remarks : PRINTD  is  in  the  DATAT  overlay  and  does  not 

remain  in  core  during  TOPSEP's  submode  opera- 
tion* 


Input /Output: 
Variable 


Input/ 

Output 


Argument/ 

Common 


De finition 


CMR0L 

I 

c 

Initial  values  of  all 
possible  controls. 

CNVRTU 

I 

c 

Conversion  constants  from 
input  units  to  internal 
units  for  selected  controls 

DPMAX 

I 

c 

Maximum  increase  allowed  in 
the  cost  index  (F), 

DP2 

I 

c 

Estimated  region  of  lin- 
earity in  the  control 
space. 

EPS0N 

X 

c 

Scalar  multiple  for  con- 
trol perturbations. 

G0UT 

I 

c 

Performance  gradient  in 
print-out  units. 

6TRIAL 

I 

c 

One -dimensional  search 
constants. 

H0UT 

I 

c 

Control  perturbations  in 
printout  units. 

IM0DE 

I 

c 

TOPSEP  submode  designation. 

IKACTV 

I 

c 

Vector  denoting  which  con- 
trols are  active,  on 
bounds^  or  within  bound 
tolerance  regions. 

INSG 

I 

c 

Flag  set  to  1 when  S and  G 
are  input  through  namelist 
(nominally  0). 

• 


PRIKlD-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IWATE 

I 

G 

Flag  designating  the 
desired  control  weighting 
scheme « 

3bm 

I 

C 

Number  of  mission  thrust 
phases. 

KMAX 

I 

G 

Number  of  thrust  controls 
(THRUST  (1,  J))  chosen  to 
be  elements  in  U. 

KHTR0L 

I 

G 

Hollerith  names  for  the 
elements  in  COKTR0L, 

l5iCUL 

I 

G 

Blank  coiatnon  location  of* 
minimum  and  maximum  control 
bounds. 

X 

* ’ C 

JSaximum  number  of  iterations 

KT 

I 

G 

'Number  of  targets. 

KU 

I 

G 

Number  of  controls. 

Jgx 

I 

G 

Percentage  of  target  error 
to  be  removed  during  an 
iteration. 

S0UT 

I 

G 

Target  sensitivity  matrix 

• 

' 

in  printout  units. 

ST0L 

I 

G 

Test  variable  for  determin- 
ing linearly  dependent 
columns  of  the  weighted 
sensitivity  matrix. 

• TL0W 

I 

C 

Limit  of  target  error  index 
belotj  which  optimization 
only  is  performed. 

TGE 

I 

C 

Limit  of  target  error  index 
above  which  simultaneous 
targeting  and  optimization 

■ 

is  discontinued  and  target- 
ing only  is  initiated. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

UWATE 

W^RK 


User  input  control  weights 
Working  storage. 


Local  Variables: 
Variable 


Definition 


K0UNT 

Control  counter. 

UL  ( = W0RKC1)) 

The  minimum  and  maximum  values  of  the 
control  bounds  in  printout  units. 

Subroutines  Called; 

None 

. 

Callinj 

r Subroutines: 

DATAT 

Common 

Blocks  I 

(BLANK),  C0NST,  EDIT,  EPMEM,  GRID,  PRINT, 
TIME,  T0P1,  T0P2,  TRAJl,  TRAJ2,  W0RK 

PRINTH 

( 

PRINTD  ^ 

IM0DE 


Print  Title 
For  Reference 
Trajectory 
Generation 


Print  Title 
For  Targeting 
And  Optimization 
Sub-Mode 


Print  Title 
For  Grid 
Traj  ectory 
Generation 


RETURN 


Print  Targeting 
And 

Optimization 
Data  Summarv 


RETURN 


3.2,12  Subroutine ; SIZE 


i...... i - . -I-.-  . .( 
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Purpose : To  size  the  control  correction. 

Method;  The  basic  procedure  for  sizing  the  control  cor- 

rection is  as  follows: 

1.  Compute  the  target  error  to  be  removed  during 
the  current  iteration.  Often  it  is  not  wise 
to  remove  all  the  target  error  in  one  step 
due  to  the  nonlinear  relationship  of  the 
targets  to  the  controls. 

2.  Compute  the  control  correction  A IJ  based  upon 
the  method  of  projected  gradients. 

3.  Perform  a one -dimensional  search  in  the 
direction  to  determine  a scaled  control  cor- 
rection which  will  minimize  either  the  t -rget 
error,  the  cost  index,  or  both. 

Supplementary  computations  include: 
o Determining  linear  dependency  among  columns 
of  the  sensitivity  matrix,  3,  thus  averting 
numerical  problems  when  computing  the  pseudo- 
inverse of  S. 

o Determining  which  controls  lie  on  their  respec- 
tive bounds  and  which  control  corrections 
violate  the  control  constraints, 
o Detemuning  the  maximum  allowable  scale  factor 


for  the  current  Iteration 
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Remarks; 


Steps  1 aiid  2 of  the  control  sizing  procedure  are 
completed  in  the  secondary  overlay  DELTU  which  is 
called  from  SIZE.  In  addition,  DELTU  performs 
most  of  the  supplementary  calculations.  The  third 
step  is  completed  within  subroutine  GENMIN.  Sub- 
routine SIZE  monitors  the  overall  procedure.  Elabo- 
ration of  the  third  step  in  terms  of  the  coded  logic 
follows . 


Subroutine  size  calls  subroutine  GEMilN  to  compute 
the  value  of  the  scaling  factor  "Y  (GAMA)  which 
minimizes  a function  P(7)  in  the  combined  constraint 
direction,  ^^2’  optimization  direction,  Au.^, 

or  each  direction  individually  depending  upon  the 
value  of  NTYPE.  The  function  P(7)  is  the  sum  of  two 
functions,  Pl(7)  and  P2(7).  Pl(7>  is  the  net  cost 
index  and  P2(7)  is  the  target  error  index. 


P(7)  = a.X.pi(7)  + J3.P2(7) 


where 


1,  for  optimization  only  or  simultaneous 
targeting  and  optimization, 

0,  for  targeting  only 


1,  for  targeting  only  or  simultaneous 
targeting  and  optimization, 

0,  for  optimization  only 


X = Weighting  of  the  net  cost  index  (^JSCALE) 


,-L 
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GENMIN  evaluiites  P(7)  for  different  values  of  V 
so  that  a polynomial  approximation  of  the  function 
con  Ufi  iitJtdu.  Once  the  polynomial  In  fonnulated 
the  minimizing  7 may  be  computed  analytically. 

To  reduce  the  number  of  point  evaluations  of 
P(7) t SIZE  provides  GENMIN  with  the  first  deriva- 
tive of  the  function  at  ^ - 0.  The  first  deriva- 
tive (DP12DS)  is  of  the  form 


p'co)  = dP(y) 


d y 


rt‘A*Pl^(0)  + jff.P2^(0) 


V=  0 


For  the  special  case  when  only  the  target  error  is 
to  be  minimized,  the  first  derivative  (DP2DS)  is 

P'(0)  = P2'(0) 

Likewise,  for  the  case  when  only  the  net  cost  is 
to  be  minimized,  the  first  derivative  (DPIDS)  is 

P'’(0)  = A'Pl  (0) 

The  function  P2(y)  to  be  minimized  along  the  con- 
straint direction,  Au2>  is  the  sum  of  the  squares 
of  the  target  errors  (E)  divided  by  the  target 
tolerances  (ET0L) , 

P2(y)  = + VAug)  +VAU2) 


, r. 

{ 0 


1 


i 
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where 


W 


2 

1 0 
ETC?L(l) 

2 

1 

ETCJL(2> 

2 

0 1 

ETGJL(NT) 


The  first  derivative  evaluated  at  v ^ 0 is 
simply 


P2'(0)  ^ 2E  (u)  S 


whe 


6E 


re  S is  the  target  sensitivity  matrix  ("^) 


The  function  Pl(  V ) to  be  minimized  along  the 
optimization  direction  is  defined 


t'*”' — ^ " ' 1 

Pl(  7 ) F(u  + 7 Au^)  - F (u)  + 


(u) 

I 


-S(SS") 


B 


E (u  + 7 A u^) 

Jj 


where  A represents  the  change  in  performance  pro- 
duced by  a step  of  length  7 along  and  B 

represents  the  linearized  approximation  to  change 
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in  performance  required  to  eliminate  the  tai’get 

error  produced  by  a step  of  length  y along 

^ u^.  F is  the  cost  index  (negative  of  the 

5 F 

S/(;  mass)  and  G is  the  cost  gradient  ( — r — ) . 

0 11 

The  first  derivative  evaluated  at  V = 0 is  thpn 
p/(0)  = (u)  A u 

The  functions  P^(0),  Pl^(O),  and  P2^(0)  are 
initialized  in  the  secondary  overlay  DELTU.  The 
point  evaluations  of  the  functions  P(  V),  Pl(V), 
and  P2(  '/  ) are  computed  in  GENMIN  and  stored  in 
the  vectors  P1P2,  Pi,  and  P2  respectively.  The 
various  values  of  the  scale  factor,  V , are 
stored  in  the  vector  GAMMA  while  the  minimizing 
scale  factor  is  stored  in  the  variable  GAMA. 

* 


NTYPE 


0 


C 


Flag  specifying  the  type  of 
control  correction. 


1 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NU 

I 

C 

Number  of  controls. 

PI 

0 

C 

Vector  of  net  cost  values 
corresponding  to  the  scale 
factors  in  GAMMA, 

P1P2 

0 

C 

Vector  of  combined  net  cost 
and  target  error  index  value: 
corresponding  to  the  scale 
factors  in  GAMMA. 

P2 

0 

c 

Vector  oi  target  error  index 
values  corresponding  to  the 
scale  factors  in  GAMMA. 

U 

I 

c 

Control  vector. 

ULIMIT 

I 

c 

Control  bounds. 

Local  Variables: 

Variable 

Definition 

PIE  ST 

Vector 
PK  T ) 

containing  the  estimates  of 
for  the  trial  trajectories. 

P12EST 

Vector 

p(‘ar  ) 

containing  the  estimates  of 
for  the  trial  trajectories. 

P2EST 

Vector 
P2(  -JT) 

containing  the  estimates  of 
for  the  trial  trajectories. 

UNEW 

Updated 

INACTV. 

control  vector  used  to  compute 

Subroutines  Called: 

CCiPY,  DELTU,  GENMIN,  STE  P 

Calling  Subroutines 

* 

PGM 

Common  Blocks: 

(BLAKK)j  C(^NST, 

EDIT,  T0P1,  T0P2,  W0RK,  SIZE* 

SIZE-8 


Logic  Flow; 


DELTU 

Compute  the 
Control  Correction 
u 


1 GENMIN 

GENMIN 

GENMIN 

1 Find  GA>iA  To 

1 Minimize  Pi 

Find  GAMA  To 
Minimize  P1P2 

Find  GAMA  To 
Minimize  P2 

GMAX  = GAMA 


INACTV(KGMAX)=-1 


HERAT  = HERAT  -1 
INSG  = I 


Determine  Which 
Controls  Are  Now 
On  Bounds  Or  In 
The  Tolerance  Region 


Pages  159  through  165  have  been  deleted. 
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3,2,13  Subroutine;  STEP  (U0LD,  SCALE,  DELU,  IW,  UNEW) 

Purpose ; To  update  the  control  vector. 

Method ; The  new  control  vector  is  updated  by  the  follow- 

ing algorithm: 

UKEW  (I)  = U0LD  (I)  + SCALE  * DELU  CD 

Input/Output: 


Input/  Argument/ 


Variable  Output 

Common 

Definition 

DELU  I 

A 

Control 

correction  vector. 

MU  I 

A 

Number 

of  controls. 

SCALE  I 

A 

Scale  on  control  correction 

UKEW  0 

A 

Updated 

control  vector. 

U0LD  I 

A 

Previous  control  vector. 

Local  Variables: 

None 

Subroutines  Called: 

None 

Calling  Subroutines: 

GRID, 

PGM 

Common  Blocks; 

None 

1 


] 


i 


1 


3.2.14A 


Purpose 


Method: 
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Subroutine:  STEST  (WS,  NT,  NU,  ST0L,  CD0TC,  CMAG,  LDEP, 

NDEP) 

; To  compute  the  inner  products  between  columns 

of  the  weighted  sensitivity  matrix  in  order  to 
determine  linearly  dependent  control  sensitiv- 
ities. 

The  normalized  inner  products  between  columns 
of  the  weighted  sensitivity  matrix  arf  oraputed 
and  stored  in  the  CD0TC  array.  These  values  are 
then  tested  to  determine  whether  they  fall  within 
some  tolerance  (ST0L)  of  unity.  The  control 
sensitivity  vectors,  whose  inner  products  do 
fall  within  this  tolerance  region,  are  considered 
to  be  linearly  dependent  and  at  least  one  of  the 
associated  controls  will  be  dropped  from  the 
control  vector  during  the  concurrent  iteration. 
For  example,  if  and  represent  two  columns 
of  the  weighted  sensitivity  matrix  and 


1 - 


S.  * S 


II  I * I Sj 


< SWL 


then  and  are  considered  linearly  df^endent. 
Whether  the  and  Vt,  component  is  dropped  from 
the  control  vector  depends  upon  the  other  column 
vector  inner  products.  If  S.  aovd  S,  are  also 
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Remarks ; 

Input/Output ; 
Variable 


linearly  dependent  then  control  u.  will  be  dropped 
since  this  measure  will  allow  mere  controls  to 
remain  active.  The  fact  that  a tolerance  region 
is.  used  to  test  linear  dependency  does  permit  ^ 
and  to  remain  linearly  independent  although  both 
vectors  are  linearly  dependent  with  _S^,  1£  ^ and  S 

are  the  only  linearly  dependent  vectors  the  control 
with  the  lower  index  is  arbitrarily  dropped. 

STEST  is  called  only  once  per  iteration  and  only 
when  considering  controls  in  the  weighted  space. 


Input/ 

Output 


Argument/ 

Common 


Definition 


CD0TC 

0 

A 

Array  of  normalized  inner 
productsj  CD0TC  (I,  J)  is 
the  inner  product  between 
the  I and  J columns  of  WS, 

CMAG 

0 

A 

Magnitude  of  the  sensitivity 
column  vectors. 

LDEP 

0 

A 

Vector  of  flags  nominally 
zero  but  set  to  1 to  denote 
■which  controls  should  be 
dropped. 

NDEP 

0 

A 

Number  of  dropped  controls. 

NT 

I 

A 

Number  of  targets. 

NU 

I 

A 

Number  of  controls. 

ST0L 

I 

A 

Minimum  difference  allowed 

between  normalized  inner 
products  of  the  control 
sensitivity  vectors  and 
unity  before  the  vectors 
are  considered  linearly 
dependent. 


I 





i. 
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1 

Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 

WS 

I 

A 

Weighted  sensitivity  matrix. 

Local  Variables: 


Variable 


Definition 


MATRIX 


MRC 


MRCSUM 

ITEST 


Integer  array  the  same  dimensions  as 
CDOTC  whose  components  are  nominally 
zero  but  set  to  1 when  (1-CD0TC 
ST0L)  ^ 

NU  X 2 array;  the  first  column  repre- 
sents the  sum  of  the  elements  across 
the  rows  of  MATRIX;  the  second  column 
represents  the  sum  of  elements  down 
the  columns  of  MATRIX, 

mi  X 1 vector  whose  elements  represent 
the  sum  across  the  rows  of  MRC. 

Index  of  the  largest  element  of  MRCSUM. 


Subroutines  Called:  ZER0M 

Calling  Subroutines:  SIZE 

Common  Blocks:  None 


II 

>-> 


H 

H 


S 


No 


f 


H 


• H 


I 

.h] 


B 


1 


7 
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RETURN 
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3,2.1<4B  Subroutine;  STHTAR  (IT) 

Purpose ; To  compute  the  targeting  sensitivity  matrix  from 

tht  jjgmented  state  transition  matrix. 


Method: 


Remarks : 


The  method  of  computing  the  sensitivity  matrix,  S, 
from  the  partitions  of  the  augmented  STMs,  0 and 
0,  is  described  in  Reference  1,  Section  9.7, 
page  140. 

During  each  iteration  the  reference  trajectory  (i.e. 
the  trajectory  defined  by  the  $TRAJ  variables  in 
the  zeroth  iterate  and  the  "best*'  trial  trajectory 
in  each  subsequent  iteration)  must  be  Integrated 
to  compute  0,  9,  and  S.  If  a portion  of  this  refer- 
ence trajectory  remains  constant  throughout  the 
iterative  process,  it'Ts""i^tegrated  during  the 
zeroth  iterate  only. 


Input /Output; 
Variable 

Input/ 

Output 

Argument/ 

Common 

CA 

0 

C 

E 

0 

C 

ETA(=STATR(1,2))  0 

C 

P 

0 

c 

IJH 

I 

c 

IPRINT 

0 

c 

Definition 

Closest  approach  computed  in  BPLANE 

Target  error  vector 

Sensitivity  of  targets  to  changes 
in  final  state 

Cost  index  (negative  of  payload) 

Array  of  flags  indicating  active 
controls 

Trajectory  print  flag 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IT 

I 

A 

Flag  Indicating  Integration  of 
the  fixed  tra^orfory  arr  f-.l)  OT 
Int ctHTiil  (on  r»l  fJTMtt  Cl) 

KMAX 

1 

C 

Number  of  active  thrust  controls 

LISTAR 

I 

C 

Array  of  flags  Indicating  select- 
ed targets 

L(?CM 

I 

c 

Blank  common  location  of  final 
S/C  mass 

LOCRI^l 

I 

c 

Blank  common  location  of  the  S/C 
masses  evaluated  at  event  times 

LOCTS 

1 

c 

Blank  common  location  of  event 
times 

LOCXR 

I 

c 

Blank  common  location  of  the  S/C 
states  evaluated  at  event  times 

MPRINT 

I 

c 

XOPSEP  print  flags 

NPRI 

I 

c 

Primary  body  designation 

NT 

I 

c 

Nuijber  of  targets 

NTNP 

0 

c 

Vector  of  primary  body  designa- 
tions associated  with  trajectory 
event  times 

NTP 

I 

c 

The  target  body  code 

NTPH 

I 

c 

Vector  of  control  phase  numbers 
associated  with  event  times 

NTPHAS 

I 

c 

Thrust  phase  counter 

NU 

I 

c 

Number  of  controls 

PHI 

0 

G 

State  transition  matrix  (6x6) 

RCA. 

0 

c 

Target  planet  encounter  radius 
computed  in  TRAJ 

S 

0 

c 

Targeting  sensitivity  matrix 

SCMASS 

I 

c 

S/C  mass  at  trajectory  start  time 

I 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

STATED 

I 

C 

S/C  state  at  trajectory  start 
time 

STATR 

I 

G 

Array  of  initial  states  corres- 
ponding to  the  reference  and 
each  trial  trajectory 

target 

0 

C 

Desired  target  values 

TARNgJM 

0 

C 

Target  values  evaluated  for  the 
reference  trajectory 

TCA 

0 

c 

Time  of  closest  approach  computed 
in  BPLP.NE 

TEND 

I 

c 

Trajectory  end  time 

THETA 

0 

c 

Sensitivity  of  final  state  to 
changes  in  thrust  controls 

TM 

I 

c 

Time  conversion  constant  (days 
to  seconds) 

TRCA 

0 

c 

Time  at  closest  approach  computed 
in  TRAJ 

TSI 

0 

G 

Time  at  SOI  computed  in  BPIANE 

TS0I 

0 

C 

Time  at  SOI  computed  in  TRAJ 

TSTART 

I 

C 

Trajectory  start  time 

TUG 

I/O 

c 

Logical  flag  indicating  injection 
computations  if  TRUE 

Local  Variables: 

Variable Definition 

NPRIO  ^ Primary  body  designation  at  title  TSTART  for  the  refer- 

ence trajectory 

REPMO  S/C  initial  mass  at  time  TSTART  for  the  reference 

trajectory 

REEXO  S/C  initial  state  at  time  TSTART  for  the  reference 

trajectory 
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Subroutines  Sailed; 

Calling  Subroutine: 
Common  Bloclcst 


G?py,  DTDUO,'  EC0MP,  MATQI3T,  MMAB,  HUNPAK,  PRINTS, 
SUB,  TC0M1’,  THCOMP,  TREK,  TUGINJ,  VECMAG 

PGM 


(BlanK),  CONST,  lASTM,  TARGET,  TIME  TOPI,  TOPZ, 
TRAJl,  TRAJ2,  TUG 
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in 


TEST-1 


3 #2, IS  Subroutine  ; TEST 

Purpose  i To  test  for  convergence  and  to  determine  wh5*'her 

the  next  control  change  will  be  a targeting 
and/or  optimieation  correction. 

Method;  The  determination  o.r  the  type  of  control  correc- 

tion is  based  upon  the  size  or  the  error  index 
(EK&G).  The  value  of  EMAG  is  compared  to  user 
•input  limits  which  direct  the  calculation  of 
the  next  control  change  to  be  either  a constraint 
correction,  a performance  correction,  or  simulta- 
neous constraint  and  performance  corrections. 

The  iteration  process  is  considered  converged 
and  the  run  is  terminated  when  the  performance 
index  is  maximized. 

Remarks ; A summary  of  the  control  correction  decision 

process  is  given  in  the  following  table. 


" 

IF 

THEN 

emag>tup 

TLJ^5^<EMAG<TUP 

EKAG<TL0W 

TARGETING 

TARGETING  AND  OPTIMIZATION 
OPTIMIZATION 

Search  Direction  Options 
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TEST-2 


The  input  limits  TUP,  TL^W,  and  0PTEND  allow  the 
user  flexibility  in  determining  the  type  of  target- 
ing and  optimization  strategy.  For  example,  the 
user  may  concentrate  un  targeting  exclusively  by 
setting  TUP  = TU?W  = 1,  and  (^PTEND  = 0.  When  the 
trajectory  is  targeted  the  run  will  terminate 
without  optimizing. 

The  angle  (9)  between  G and  is  used  to  test 

convergence  in  subroutine  TEST,  Optimization  is 
considered  complete  when 

cos  0 - G 

|G|  *|AUj,I 

approaches  0 (when  0 approaches  90  deg)  and  when  ^ 
EMAG  <TLCfW.  The  user  may  override  this  conver- 
gence requirement  by  specifying  I^PXEKD.  When 
0PTEND  < Q < 90  and  EMAG  < TUJW  the  run  is  termi- 
nated. Figure  3-1  illustrates  the  convergence 
process . 
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Figure  3-1  Geometric  Interpretation  of  Conx'ergence 


Input/Output ! 


Input/ 

Variable Output 


Argument/ 

Contmon 


Definition 


CTHETA  I 


EMAG  I 
ITERAT  I 
K0NVRJ  0 


NMAX  I 


C Cosine  of  the  convergence 

test  angle,©.  As  opti- 
mization process  converges ^ 
© approaches  90  degrees  and 
CTHETA  approaches  0 « 

C Quadratic  error  index, 

C Current  iteration  number. 

C Convergence  flag, 

= -1,  maximum  iteration 
number  reached 

= 0,  iteration  in  process 

= 1,  convergence 

C Maximum  number  of  itera- 

tions allowed. 
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Input/ 

Variable Output 


Argument/ 

Common 


Definition 


NTYPE  0 C 


^PTEITO  I 


C 


I C 


TUP  I C 


Flag  designating  type  of 
next  control  correction, 

= -1,  optimization  only 

= 0,  targeting  and  opti- 

mization 

= 1,  targeting  only 

User  specified  convergence 
tolerance  on  optimization 
process  (e.g,,  CTHETA  £ 

0PTEND  indicates  convergence). 

Upper  limit  of  EMAG  for 
which  optimization  only  is 
performed. 

Lower  limit  of  EMAG  for 
which  targeting  only  is 
performed. 


Local  Variables:  None 

Subroutines  Called:  None 

Calling  Subroutines;  PGM 
Connaon  Blocks;  EDIT,  T0P1,  T0P2 

Logic  Flow: 


None 
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3,2.16 

Purpose 

Method : 


Subroutine:  TREK  (IT,  KOUNT) 

To  organize  calls  to  the  trajectory  propagator 
and  to  evaluate  target  conditions. 

The  trajectory  propagator,  TRAJ,  performs  two 
basic  functions  for  TOPSEP:  1)  trajectory 

integration  from  some  specified  starting  time 
(TREF)  to  the  stopping  condition  denoted  by 
IST0P,  and  2)  trajectory  integration  from  the 
starting  time  to  an  event  time  (TEVNT),  In 
the  latter  case  TRAJ  may  be  recalled  and  tra- 
jectory integration  continued  from  the  current 
event  time  to  the  next  event  time  without 
requiring  initialization  of  the  trajectory 
routines  and  parameters.  These  capabilities 
are  utilized  in  TOPSEP 's  submodes  in  different 
ways.  For  the  simple  trajectory  propagation 
submode,  TRAJ  is  required  to  integrate  from 
the  start  time  to  the  termination  time.  However, 
the  targeting  and  grid  submodes  require  that 
TRAJ  return  to  TREK  at  certain  phase  times  so 
that  the  s/c  mass  and  state  may  be  stored  in 
blank  common.  This  requirement  is  necessary 
only  for  the  reference  and  trial  trajectory 
when  elements  of  THRUST (I,  J)  are  used  as  con- 
trols. When  TREK  is  called  to  set  up  grid 
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trajectories  and  perturbed  trajectories  the 
appropriate  mass  and  state  are  selected  from 
blank  common.  TRAJ  then  integrates  the  trajec- 
tory from  the  beginning  of  the  associated  thrust 
phase  to  the  terminal  time  thus  avoiding  the 
duplication  of  known  trajectory  segments*  ^Then 
elements  of  THRUST (I,  J)  are  not  used  as  con- 
trols, however,  TRAJ  integrates  from  the  start 
time  (TSTART)  to  the  terminal  time.  TRAJ 
returns  the  s/c  terminal  state,  and  mass  and 
the  final  time  upon  completion  of  the  trajec- 
tory integration.  To  compute  additional  termi- 
nation data  or  to  compute  target  parameters  such 
as  BDT  and  BDR  or  orbital  elements,  subroutine 
BPLANE  must  be  called.  Subroutine.  TC(^M?1  is  then 
called  to  select  and  to  store  the  appropriate 
target  parameters  in  the  vector  TARTAR. 

The  flag  returned  from  TRAJ  which  directs  further 
computation  of  termination  data  is  KUTtfFF.  The 
following  table  provides  a summary  of  the  KUT0FF 


options . 
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KUTCiFF 

Actual  Stopping 
Condition 

IST0? 

Requested  Stopping 
Condition 

Computed  G0  T0 
Statement 
Number 

1 

Final  Time 

1 

Final  Time 

400 

2 

Final  Time 

2 

Encounter 

100 

3 

Final  Time 

3 

S0I 

100 

4 

Final  Time 

4 

Stopping  Radius 

100 

5 

Encounter 

.2 

Encounter 

200 

6 

Encounter 

3 

S0I 

200 

7 

S0I 

3 

S0I 

300 

8 

Stopping  Radius 

4 

Stopping  Radius 

400 

9 

Event  Time 

KA 

Event  Time 

700 

Tnput/Output: ; 


Variable 

Input/ 

Outnut 

Argument/ 

Common 

Definition 

BIG 

I 

C 

Constant  equal  to  1.E20 

CA 

I 

C 

Closest  approach. 

ECC 

I 

c 

Eccentricity  of  orbit  rela- 
tive to  the  target  planet 
at  the  actual  stopping  condi- 
tion. 

ICALL 

0 

c 

Trajectory  initialization 
flag. 

• IM0DE 

I 

c 

TOPSEP  submode  designation. 

INTEG 

0 

c 

Flag  indicating  which  equa- 
tions are  to  be  integrated 
in  TRAJ, 

IPRINT 

0 

c 

Trajectory  print  flag. 

i 
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Variable 

Input/ 

Outnut 

Argument/ 

Common 

Befinition 

IT 

I 

A 

Flag  indicating  type  of  in- 
itialization preceding  the 
call  to  TRAJ. 

ITP 

0 

C 

Index  of  the  target  planet  in 
the  NB  array  (bodies  included 
in  the  trajectory  integration). 

KMAX 

I 

C 

Number  of  thrust  controls 
(THRUST  (I,  J))  chosen  to  be 
elements  of  u. 

K0UNT 

I 

A 

Index  on  control. 

KUT0FF 

0 

C 

Termination  flag. 

L0CM 

0 

C 

Blank  common  location  of  final 
S/C  mass. 

L0CKFM 

I 

c 

Blank  common  location  of  the 
S/C  masses  evaluated  at  event 
times  for  the  reference  and 
all  trial  trajectories  in  a 
single  iteration. 

L0CTS 

I 

c 

Blank  common  location  of  event 
times  for  the  reference  and  all 
trial  trajectories  in  a single 
iteration. 

L0CXR 

I 

rt 

Blank  common  location  of  the 
6-common  state  vectors  asso- 
ciated with  the  event  times  of 
the  reference  and  all  the  trial 
trajectories  of  a single  itera- 
tion. 

MEVEHT 

0 

c 

Flag  designating  trajectory 
propagation  to  event  times. 

MPRINT 

I 

c 

Submode  print  option  flags , 

NPRI 

0 

c 

Primary  body  designation. 

NTNP 

0 

c 

Vector  of  primary  bodies  asso- 
ciated with  th$  event  times  of 
the  refei^ence  and  all  trial 
trajectories  in  a Single  iterS’ 
tion. 
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Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

NTP 

I 

C 

The  target  body  code 
(NB 

OTPH 

I 

C 

Vector  of  control  phase  num- 
bers pgaociated  with  the  event 
times  of  the  reference  and  all 
trial  trajectories  in  a single 
iteration. 

NTPHAS 

0 

C 

Thrust  phase  counter. 

NTR 

I 

C 

Trial  trajectory  counter. 

NU 

I 

C 

Number  of  controls. 

RCA 

0 

C 

Target  planet  encounter  radius. 

SCMASS 

I/O 

C 

S/C  mass  at  the  trajectory 
start  time. 

SMA 

0 

C 

Semi -major  axis  of  the  approach 
orbit  relative  to  the  thrget 
planet , ^ 

STATEO 

I/O 

C 

S/C  state  at  trajectory  start 
time , 

ST0RE 

I/O 

C 

Blank  common  variables. 

TAKPAR 

0 

c 

Target  values  of  the  most  recent 
ly  generated  trajectory. 

TCA 

0 

c 

Osculating  time  of  closest 
approach. 

TEVKT 

0 

c 

Event  timf*  to  bs  monitored  by 
TRAJ. 

TM  • 

I 

C 

Number  of  seconds  in  a day. 

TRCA 

0 

c 

Time  of  closest  approach  deter- 
mined by  TRAJ  if  KUT0FF  equals 
5 or  6,  otherwise  set  to  TCA. 

TREF 

0 

c 

Reference  time  used  by  TRAJ  to 
begin  trajectory  propagation. 
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Variable 

Input/ 

Outout 

Argument/ 

Common 

Definition 

TS0I 

0 

C 

Time  at  sphere  of  influence 
determined  by  TRAJ  if  KUT0FF 
equals  7,  otherwise  set  to 
•TSI , 

TSTART 

I 

C 

The  reference  trajectory 
start  time. 

TST0P 

0 

c 

The  actual  trajectory  termina- 
tion time. 

OREL 

0 

c 

Array  containing  the  position 
components  of  the  S /C  relative 
to  the  bodies  flagged  in  the 
NB  array. 

tIEELM 

0 

c 

Vector  containing  the  magni- 
tude of  the  position  com- 
ponents of  the  S/C  relative 
to  the  bodies  flagged  in  the 
NB  array. 

UTRUE 

0 

c 

S/C  position  components  rela- 
tive to  tne  primary  body. 

VGA 

0 

c 

Osculating  velocity  at  closest 
approach. 

VEEIil 

0 

c 

Vector  containing  the  magnitudes 
of  the  velocity  components  of 
the  S/C  relative  to  the  bodies 
flagged  in  the  NB  array. 

VTRUE 

0 

c 

S/C  velocity  components  rela- 
tive to  the  primary  body. 

BDR 

0 

c 

Osculating  B-plane  element 
orthogonal  to  the  ecliptic 
plane . 

BDR 

0 

c 

Osculating  B-plane  element  in 
the  ecliptic  plane. 

lASTM 

I 

c 

Flag  designating  the  method  of 
computing  the  target  sensitivity 
matrix. 
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Variable 

Input/ 

Outout 

Argument / 
Common 

Definition 

LI STAR 

I 

C 

Array  of  Indices  identifying 
selected  target  variables. 

NT 

I 

C 

Number  of  target  variables . 

TSI 

0 

C 

Time  of  sphere  of  influence 
crossing  based  upon  osculat- 
ing B-plane  conditions. 

TUG 

0 

C 

Logical  flag  determining 
whether  injection  conditions 
should  be  calculated. 

VHP 

0 

c 

Hyperbolic  excess  velocity. 

VEEL 

I 

C 

Array  containing  the  velocit 

component s of  the  S/C  rela- 
tive to  the  bodies  flagged  in 
the  NB  array. 


Local  Variables 


Variable 


Definition 


JUMP  Index  on  the  thrust  controls  (THRUST 

(I,  J))  chosen  to  be  elements  of  u. 

MISS  flag  set  to  1 if  osculating  elements 

are  calculated  outside  the  target 
planet's  sphere  ol  influence, 

NPRIO  Primary  body  at  time  TSTART  for  the 

reference  trajectory. 

KTPHO  Thrust  control  phase  number  at  time 

TSTART  for  the  reference  trajectory. 

KEEMO  S/C  initial  mass  at  time  TSTART  for 

the  reference  trajectory. 

REFXO  S/C  initial  state  at  time  TSTART  for 

the  reference  trajectory. 


Subroutines  Called; 
Calling  Subroutines; 
Common  Blocks : 


BPLABE,  C0PY,  VECMAG,  TUGINJ,  PRINTS,  TCOMPl 
PEGS,  STMTAR 

(BLANK),  C0NST,  EDIT,  EPHEM,  GRID,  PRINTH,  TARGET, 
TIME,  T0P1,  T0P2,  TRAJl,  TRAJ2,  WORK,  lASTH,  TUG 


Page  182  has  been  deleted, 
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TllKK-10 


\Wi 


Genera ce  A Reference 
Trajectory  For  The 
First  Iteration  In  The 
Targeting  Submode? 


Yes 


Set  Trial.  Trajectory 
Parameters : 

TREF,  NPRI,  NTPHASj  STATED, 
and  SCMASS  to  The  Proper 
Values  Corresponding  To  The 
|Phase  Time  In  Which  The  First! 
I Control  Is  Implemented 


< 


JUMP>  KMAX 


Yes 


No 


Set  The  Event  Time  TEVNT 
To  The  Value  Of  The  Phase 
Time  Stored  In  Slank  Gonmon 
Corresponding  To  U(JUMP) 


1 


TEVNT 

.... 

r 
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K0UNT>  mx 


Set  Grid  Trajectory  Parameters 
TREF,  NPRI,  NTPHAS,  STATED,  and 
SCMASS  To  The  Values  Corresponding 
To  The  Beginning  Phase  Time  In 
Which  The  Control  U(KOUNT) 

Is  Implemented 


/" 

KMAX  > 

0 And 

\ No 

V 

K0UNT  ^ 

: KMAX 

/ 

L 

1 

— 

Yes 

r 

TREF  = TSTART 

I 

Set  Perturbed  Trajectory 
TREF,  NPRI,  NTPHAS ; STATED, 
and  SCMASS  To  The  Values 
Corresponding  To  The  Beginning 
Phase  Time  In  tiThich  The  Control 
TJ(K0UNT)  Is  Implemented 
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3,2,17  Subroutine; 
Entry  Points : 
Purpose; 


Method; 


\^EIGHT  (DUl,  DU2,  DU,  SINV,  WG,  WS,  WU,  NUD,  NTD) 
UNT7ATE 

To  perform  the  appropriate  control  and  target 
space  transformations  by  weighting  and  unweight- 
ing the  controls,  gradients,  sensitivities,  and 
targets . 

Several  different  weighting  algorithms  have  been 
devised  to  transform  the  control  and  target 
spaces  in  order  to  facilitate  targeting  and 
optimisation.  The  weights  are  applied  to 
"condition”  the  effects  of  selected  controls 
when  targeting  and  optimizing.  The  weighting 
algorithms  are  as  follows; 


1,  User  input  weighting 


WU  (J)  = 


UWATB (J) 


2,  Unitized  control  weighting 


SfU  (J)  ^ 


iU(J)  * miATECJ)  1 


3,  Sensitivity  weighting 


r t s(i.  J)  7 

WU  CJ)  = MAK  loijAXE(J)  . i = 1,  HI  J 
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Remarks : 

Input /Output:  / 

Variable 

DPSI 


4*  Combined  sensitivity,  target  ei'ror,  and 
control  weighting 


NT 


WU  (J)  = 


s (1,  j)  * ETR  g,  1) 

U CJ)  * UWATE(J) 


1=1 


5.  Target  gradient  weighting 


HT  ^ 

G2  (J)  = 2 z:  S (I,  J)  * ETR  Cl,  1) 
1=1 


WU  (J)  = 1g2  (J)  1 

J Y » 

yf  G2  G2 


6.  Averaged  gradient  and  control  weighting 


• 1*  \ 

tnr  go  V(l)  ^ mJATE(J)  i-  G2(J)  ^ 

(nwATB(j)  ) 


This  routine  is  used  to  weight  controls  and 
targets  before  the  control  correction  is  cal- 
culated and  to  unweight  the  same  variables  and 
certain  additional  parameters  before  the  trial 
trajectories  are  made. 


Input/  Argument / 

Output  Common Definition  

I G Target  error  to  be  removed 

during  current  iteration. 


DU 


I/O 


A 


Total  control  correction 


X90. 


WEIGHT-3 


Input/  Argument/ 

Variable Output: Common 


Definition 


DUl 

I/O 

■ At  « 

LU2 

I/O 

A 

ET0L 

I 

C 

ETR 

I 

c 

G 

I 

c 

R7ATE 

I 

G 

IffATE  I C 

NT  I G 

NTD  I A 

NtJ  I C 

. NUD  * I A 


Performance  correction. 

Constraint  correction. 

Target  tolerances. 

Array  of  trial  trajectory 
errors , 

Performance  gradient. 

Flag  specifying  type  of 
weighting, 

1,  User  input  weighting 

2,  Unitized  control 
weighting 

3,  Sensitivity  weighting 

Combined  sensitivity, 
target  error,  and 
control  weighting 

5,  Target  gradient  weight- 
ing 

6,  Averaged  gradient  and 
control  weighting 

Flag  specifying  target 
weighting. 

Number  of  targets. 

Integer  variable  used  to 
dimension  arrays  in  the 
argument  list  (number  of 
targets ) , 

Number  of  controls. 

Integer  variable  used  to 
dimension  arrays  in  the 
argument  list. 
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WEIGHT-A 


Variable 

Input/ 

Outouc 

Argument/ 

Common 

Definition 

S 

I 

C 

The  sensitivity  of  targets 
to  changes  in  controls. 

SIW 

I/O 

A 

Pseudo  inverse  of  the 
sensitivity  matrix. 

u 

I/O 

G 

The  control  vector. 

uwate 

I 

G 

User  input  weights  on 
controls  (used  in  each 

1 

weighting  algorithm). 

WG 

0 

A 

Weighted  performance 
gradient. 

W0RK 

I 

C 

Temporary  working  storage. 

WS 

0 

A 

Weighted  sensitivity  matrii 

WU 

I 

*A 

Control  weighting  vector. 

Local  Variables: 

Variable 

Definition 

62 

, 

Target  gradient. 

621I&G 

Magnitude  of  the  target  gradient. 

ST0RE 

Temporary  storage  location. 

Subroutines  Called:  AMAXl 

, Mtl&TB 

• 

Calling  Subroutines:  SIZE 

% 

Common  Blocks: 

EDIT, 

T0P1,  T0P2, 

W0RK 

Logic  Plow; 
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liOaic  Flow 


WEIGHT 


WEIGHT- 5 


= 5 or  6 


Calculate 

Target 

Gradient 

G2 


Calculate 
WUCJ)  by 
Sensitiv- 
ity 

Weighting 

Schemes 


Calculate 
WU(J)  by 
Combined 
Sensitiv- 
ity 

Error  and 
Con trol 
Scheme 


Ca  leu  la  te 
WU(J)  by 
Target 
Gradient 
Scheme 


Calculate 
WU(J)  by 
Averaged 
Gradient 
and 

Control 
Sc  heme 


JWATE 
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Weight  Targets:  (1=1, NT;  J=l,  NU) 
WS  (I , J)  = WS (I , J) /ET0L (I ) 

DPS  1(1)  = DPSI(I)/ET0L(I) 


RETURN 


WEIGHT-6 


UW^ATE 


DUl(J)  = DU1(J)/WU(J) 

DU2(J)  = DU2(J)/WU(J) 

DU(J)  = DU(J)/WU(J) 

U(J)  = U(J)/WU(J) 

SINV(J,I)  = SINV(J,I)/WU(J),I=1,NT 


SINV(J,  I)=SINV  (J,  I)  /ET0L  (I 
1=1, NT 

WS (I, J)=WS (I, J)*ET0L  (I) , 
1=1, NT 


IWATE 


DPSI(I)=DFSI  (I)*ET0L(I)  , 
T~1,NT 


RETURN 


f; 


3*3  Program; 

Purpose; 

Input /Outoui: : 

Local  Variables: 
Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks : 
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G0DSEP-J 


G0DSEP 

Executive  control  for  error  analysis. 

Inputs  are  all  trajectory  data  provided  by 
DATAM.  Outputs-  are  all  error  analysis  data. 
None 

BLKDTG,  C0PY,  C0VP,  DUMP,  MASSIG,  MAT0UT, 

SCHED,  SETEVK,  SSTGUI,  STMGEN 

MAPSEP 

WOR^t,  (BLANK),  DIMENS,  EDIT,  ENC0H,  LABEL, 
L0CATE,  L0GIC,  SCHED I,  SCHEDR,  TRAJl,  TRAJ2 
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G^DSEP-2 


Logic  Flow: 


C0VP 

Propagate  knowledge 
and  control  covariance 
to  event  time 


196-A 


MESEVN  < 10 
(Is  this  an  event 
rather  than  meas?) 


No 


0VERIAY  MEAS 


Process 
Measurement 

?milMiwmiiiiiiii  iiiiMgw  i'll  iiii'i  r 


SETEVH 


Perform  all  necessary 
computations  and  print 
for  eigenvector,  thrust, 
propagation  and 
prediction  events 


RETURN 


1%-B 


AST0BS-X 


3,3.0  Subroutine!  AST0BS  (HECP,  HECE,  TCURR,  HMAT) 


Purpose! 

To  compute 

the  observation  partials  for  astrc- 

nomica 1 observations 

of  the  target  body. 

Method : 

See  Volume 

I,  Analyt 

ic  Manual,  Section  6.3. 

Input /Out put: 

Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

HECP 

I 

A 

Heliocentric  ecliptic 
coordinates  of  the 
ephemeris  body. 

HECE 

I 

A 

Heliocentric  ecliptic 
coordinates  of  the  earth. 

TCURR 

I 

A 

Current  trajectory  time. 

HMAT 

0 

A 

Observation  matrix. 

GHZER0 

I 

C 

Greenwich  hour  angle 
evaluated  at  launch 
(TLNCH) . 

0MEGAG 

I 

C 

Rotational  rate  of  the 
earth. 

STAL0C 

I 

C 

Tracking  Station/ 
Observatory  locations. 

ECEQ 

I 

C 

Ecliptic  to  equational 
transformation  matrix. 

Local  Variables; 

- 

- 

Variables 

Definition 

GRIIXJfN 

Greenwich  hour  angle  at 
TCURR. 

GEQSTA 

• 

Geocentric  equatorial  co- 
ordinates of  the  observatory 

GECSTA 

Geocentric  ecliptic  coordi- 
nates of  the  observatory. 

RH0EC 

Topocentric  ecliptic  posi- 

tlon  of  the  ephetneris  body. 


X96-G 


ASTCSBS-2 


J 


Local  Variables: 

Variables Definition 


RH(3EQ  Topocentric  equatorial 

position  of  the  ephemeris 
body. 

AEQ  Geocentric  equatorial  right 

ascension  of  the  ephemeris 
bodjr . 

DEQ  Geocentric  equatorial  de- 

clination of  the  ephemeris 
body. 


HH  Temporary  storage  for  the 

observation  matrix. 

Subroutines  Galled:  CYEQEC,  LQfCLST,  LCfDC(JfL,  MMAT3,  VECMAG,  ZER^ 

Galling  Subroutines;  0BSERV 

Common  Blocks;  C0NST,  D]MNS,  KEPC<?N,  MEASI,  IIEASR,  TRKDAT»  W0RK 

Logic  Flo-w: 


None 
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AUGCNV-1 


3.3.1  Subroutine: 
Purpose: 


Remarks: 


AUGCNV  (C0VIN.  C0V0UT,  I0PT) 

To  convert  internal  storage  format  of  the  aug- 
mented state  covariance  information  from  "block” 
(see  Remarks)  to  augmented  (see  Remarks)  form. 
The  augmented  covariance  form  is  assumed  as 
.follows,  v;here  the  individual  matrix  partitions 
or  subblocks  are  defined  in  Input  (Vol.  II, 


User* 

s Manual,  Sec, 

2.3): 

P 

CXS 

CXU 

cx^; 

cxw 

T 

CXS 

PS 

CSU 

CSV 

CSW 

T 

CXU 

T 

CSU 

PU 

CUV 

CUW 

T 

CXV 

T 

CSV 

T 

CUV 

PV 

CVW 

T 

cxw 

T 

csw^ 

T 

cmr 

T 

CVW 

PW 

The  " 

block** 

form  assumes 

that  a 

titions  are  stored  contiguously  in  packed  form 

9 

in  the  following'  order: 

P,  CXS,'  CXU,  CX7,  CSW,  PS,  CSU,  CSV,  CSW,  PU, 
CUV,  CUW,  PV,  CVW,  PW. 


C0VIN  and  C0V0UT  may  share  the  same  location. 
Therefore,  in  order  to  prevent  writing  over 
elements  which  have  not  been  properly  relocated 
in  going  from  block  to  augmented  form,  Pt?  is 
relocated  first,  then  CVW  and  so  on  up  the  above 
mentioned  ordering  of  the  block  form.  Por  the 
same  reason,  in  going  from  augmented  to  block 


MUG*  I 

KDIM  X 


AUGCKV-2 
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AU6CNV-3 


Local  Variables; 

Variable Definition  

ISUB  1 Subscripts  used  for  locating  elements 

JSlJBi  ■ at  L0CAUG  and  L0CBLK 

KCCJL  Number  of  columns  in  current  covariance 

sub-block 

NR0W  Humber  of  rows  in  current  covariance 

sub-block 


Subroutines  Called:  MPAK,  IflJHPAK,  SYHUP 

Calling  Subroutines:  PPAK 

Common  Blocks:  W0RK,  DUffiNS 

Logic  Flow:  None 
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BLKDTG-1 


5.3.2  Subroutine;  ■ BLKDTG 

Purpose;  To  initialize  label  arrays  in  common  /LABEL/ 

by  DATA  statements. 


Input/Output; 

Variable 


Input/ 

Output 


Argument/ 

Common 


Definition 


AUGLAB 

EVLAB 

MSSLAB 

PGLAB 

PLAB 

YECLAB 


0 

0 

0 


Local  Variables; 


Hone 


_Subroutines  Galled;  None 
Calling  Subroutines:  G0DSEP 

Common  Blocks;  LABEL 

Logic  Flow:  None 


C Augmented  state  vector 

element  labels 
C Event  labels 

C Measurement  labels 

C Control  covariance  parti- 

tion labels 

C Knowledge  covariance  par- 

tition labels 

C Augmented  state  vector 

partition  labels 


201 


B01-IB-1 


3.3.3  Subroutine; 
Purpose; 

Method: 

Remarks ; 


Input /Output: 

Local  Variables: 
Subroutines  Called; 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


B0MB 

To  force  abnormal  termination  with  traceback. 
B0MB  computes  and  attempts  to  use  the  square 
root  of  -1.0, 

On  CDC  6000  series  computers  any  attempt  to  use 
the  square  root  of  a negative  number  when  op- 
erating with  real  variables  causes  program 
termination  and  provides  a traceback  to  the 
main  program  of  subroutines  called  and  the 
location  called  from  each.  B0MB  is  called 
from  several  places  in  G0DSEP  and  its  associated 
secondary  overlays  to  indicate  an  unresolvable 
conflict  of  control  variables. 

None 

None 

None 

STMRDR,  GAINF,  DEFALT,  DIMENS,  NMLIST,  0UTPTG 
None 


None 
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C0RREL-1 


C0RREL  (PVAR,  I0PTN,  PUNCH,  C0VUB) 

To  compute,  print,  and  optionally,  punch  stand- 
ard deviations  and  correlations  coefficients 
from  an  input  covariance  matrix. 

Since  VARSD  (covariance  to  standard  deviations 
and  correlation  coefficients)  operates  strictly 
on  the  upper  triangle  of  a covariance  matrix, 
only  the  diagonal  of  PVAR  need  be  saved  outside 
FVAR.  The  remaining  lower  triangle  terms  are 
then  copied  into  the  upper  triangle. 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

PVAR 

I 

A 

Input  covariance  matrix. 

I0PTN 

I 

A 

Option  flag. 

= 1,  PVAR  in  covariance 

form 

= -1,  PVAR  already  in 

standard  deviations 
and  correlation 
coefficients 

PUNCH 

I 

A 

Logical  flag  indicating  if 
standard  deviations  and 
correlation  coefficients 
are  to  be  punched. 

C0VLAB 

I 

A 

Array  of  labels  to  be  used 
for  punching,  if  PUNCH  = 
.TRUE. 

AUGLAB 

I 

* C 

Augmented  state  vector 
labels. 

3,3.4  Subroutine: 
Purpose : 


Remarks : 


Input /Out put ; 
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C0EHEL-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CAUG 

I 

C 

Array  locating  partitions 
of  augmented  covariance 
matrix. 

L0CIAB 

I 

C 

Array  locating  state  vector 
partition  labels  in  AUGIAB. 

HAUG 

I- 

C 

Length  of  augmented  state 
vector. 

NDIM 

I 

C 

Array  of  dimensions  of 
augmented  state  vector 
partitions. 

PRWC0V 

I 

G 

f 

Logical  array  denoting 
which  partitions  of  stand- 
ard deviations  and  correla- 
tion coefficients  are  to  be 
printed. 

Variables: 

Variable 

Definition 

P0S 

1 <r  Rss 

position  uncertainty. 

VEL 

1 <r  RSS  velocity  uncertainty. 

Subroutines  Called: 


Calling  Subroutines: 
Common  Blocks: 


MPAK,  VECMAG,  VARSD,  PRSDEV,  PUNSD,  PRCSSRR, 
PUWC0R,  sm0,  MUNPAK. 

SETEVM,  GDIBE,  ^EASPR 

W0EK:,  DIMENS,  LABEL,  L0GIC 


C?iRREL-3 


Logic  Flow: 


C0RREL-4 


PRCgfRR 


Wri  te 

Correlation 

Coefficients 


I i 


3,3i5  Subroutine; 


Purpose: 


Me  thod : 


Remarks : 


1 


1 
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C0VP-1 


C0VP  (T,  TFj  STMRD,  PIN) 

To  propagate  a covariance  between  two  time 
points. 

Three  options  are  available: 

1)  propagation  by  transition  matrices  read  from 
STM  filej 

2)  propagation  by  transition  matrices  computed 
as  needed  and  not  saved;  or 

3)  propagation  by  integration  of  covariance 
variational  equations. 

Independent  of  propagation  method,  the  output 
of  C0VP  is  always  stored  in  blank  common  located 
by  the  integer  variable  PTEMP,  This  is  true 
even  for  zero  length  propagation  intervals,  in 
which  case  the  input  covariance  is  merely  copied 
to  that  location. 

Additionally,  when  the  option  to  read  the  STM 
file  is  exercised,  C0VP  automatically  propagates 
the  control  covariance  if  control  propagation  is 
indicated  (logical  variable  PE0PG)  . 

“When  C0VP  is  called  with  both  STtBRD  and  PD0T 
false  (nominally  for  prediction  events  only) 

• T 

tests  are  made  to  subdivide  the  complete  propaga- 


tion interval  into  as  many  sub intervals  as  necessary 
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C0VP~!i 


Input /Output: 

Variable 

T 

TF 

STHRD 


PIH 

DELTIM 

DXDKST 


to  guarantee  that  no  transition  matrix  prop- 
agation crosses  a thrust  phase  change,  since 
that  would  violate  effective  process  noise  model 
assumptions. 


Input/  Argument/ 

Output Conunon 

I A 


I.  A 


I . 'A 


I A 

I/O  • C 

0 c 


Definition 

Beginning  time  of  propa- 
gation interval 
End  time  of  propagation 
interval 

Logical  variable  indicat- 
ing source  ci:  transition 
matrices  if  transition 
matrices  are  to  be  used 
=T,  read  transition 

matrices  from  STM  file 
=F,  generate  transition 
matrices  by  calling 
TRAJ  overlay 

Input  augmented  covariance 
Propagation  interval  length 
Keplerian  to  cartesian 
transformation  for  ephemeris 
body 
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C0VP-3 


Variable 

Input/ 
. Output 

Argument/ 

Common 

Definition 

DYN0IS 

I 

C 

Dynamic  noise  flag 

GT 

I/O 

c 

Transformation  matrlK 
from  thrust  cone-clock 
system  to  heliocentric 
ecliptic  coordinates 
evaluated  at  end  of  prop- 
agation interval 

GTSAVE 

0 

c 

Same  transformation  matrix 
as  GT,  but  evaluated  at 
beginning  of  propagation 
interval 

lAUGDC  ■ 

I 

c 

Dynamic  augmentation  vector 

ICALL 

0 

c 

Initialization  parameter 
for  TRAJ  (sec.  3.5) 

lEP 

I 

c 

Locator  in  UP,  VP  of 
elements  corresponding  to 
ephemeris  planet 

lEPHEM 

I 

c 

Flag  indicating  form  of 
ephemeris  elements,  if  any 

IKTEG 

0 

c 

Control  parameter  for  TRAJ 
(sec,  3,5) 

IST0P 

0 

c 

Control  parameter  for  TRAJ 
(sec.  3.5) 

LIST 

I 

c 

Array  c£  state  vector  augmen- 
tation parameter  numbers 

i - J 1. 
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C0VP-4 


Input/ 

Variable  Output 
LISTDY  I 


L0CF0  I 


L0CTG  I 


LPD0T  I 


MEVENT  0 


Argument/ 

Common Definition 

G Array  of  dynamic  parameter 

numbers  included  in  transi- 
tion matrices 

G Location  in  blank  common 

of  covariance  matrix  to  be 
integrated  when  PD0T  option 
is  selected 

C Location  in  blank  common 

of  either  transition  matrix 
• or  covariance  matrix  returned 

by  TRAJ  (sec.  J.r  ) after 
integration 

C Ordered  list  of  parameters 

expected  by  TRAJ  (sec.  3,?  ) 
when  covariance  integration 
option  is  selected.  LPD0T 
is  equivalenced  to  IGP0L 
array  in  common  /SCHEDI/ 
since  no  guidance  events  are 
. permitted  when  integrating 
covariance  variational  equa- 
tions 

' C Control  flag  for  TRAJ  (sec  3.5) 


Variable  . 

Input/ 

Output 

Argument/ 

Common 

Definition 

NAUG 

I 

C 

length  of  total  augmented 
state  vector 

HEPHEL 

I 

G 

Number  of  ephemeris  elements 

. 

augmented  to  state  vector 

KXPHAS 

I 

C 

Humber  of  current  thrust 
phase 

PD0i: 

I 

G 

Logical  flag 
=^T,  integrate  covariance 
variational  equations 

* 

■ 

=P,  propagate  covariances 
by  transition  matrices 

P6 

I 

C 

Location  in  blank  common 
of  control  covariance 

PHI  . 

I 

C 

Location  in  blank  common 
of  transition  matrix 

PL?iCAL 

I 

C 

Location  in  blank  common 

• 

of  working  storage  block 
as  large  as  the  augmented 
covariance  matrix 

PR(^PG 

I 

C 

Logical  flag,  operative 
only  if  PD0T  = FALSE  and 

' 

• 

STMRD  = TRUE 

propagate  control  co- 

variance  simultaneously 
with  knowledge 


Variable 


Input/ 

Oufcout 


Argument/ 

Common 


Q 0 

SMASS  I 

STATED  0 


TCUKR  I 

TEVNT  0 


TG  I 

TM  I 

TEEF  0 

TTHRST  I 

UP  I 


Pe£inition 

=F,  do  not  propagate  con- 
trol covariance 
C Effective  process  noise 

matrix 

C Mass  of  Sun, 

C Initial  heliocentric 

ecliptic  S/C  state  for 
TRAJ  (sec  3.5)  when  ICALL  = 

1 

G Current  trajectory  time 

C Event  time  for  propagation 

(either  of  covariance  or 
transition  matrix)  to  by 
TRAJ  (sec  3.5) 

C Epoch  of  input  control  co- 

variance  referenced  to  TLNCH 
C Conversion  factor,  seconds/ 

day 

C Reference  time  for  TRAJ 

(sec  3,5) 

G Array  of  thrust  event  times 

G Array  of  n-body  heliocentric 

position  vectors 


Input/ 

Argument/ 

Variable 

Output 

Common 

Definition 

UTRUE 

I 

C 

S/C  heliocentric  position 
vector 

VP 

I 

C 

Array  of  n-body  heliocentric 
velocity  vectors 

VTRUE 

Local  Variables: 
Variable 

I 

C 

S/C  heliocentric  velocity 
vector 

Definition 

FRSTIM  Logical  flag  used  when  PD0T  = TRUE 

to  control  one-time  only  initializa- 
tion of  parameters  for  TRAJ  (sec  3.5) 
~T,  first  pass  through  C0VP 
=F,  not  first  pass  through  C0VP 

ILIST  List  of  augmented  dynamic  parameters 

T1  1 Start  and  stop  times  respectively 

T2  ) for  propagation  subintervals  as 

governed  by  thrust  events  (see 
Remarks) 

Subroutines  Called:  AMABT,  CARKEP,  C0PY,  DYN0,  L0ADRC,  MMAB, 

MUKPAK,  PR0P,  STMPK,  STMRDR,  STMUSE,  2ER0M 
Common  Blocks;  W0RK,  (BLANK),  C0NST,  DIBffiNS,  KEPC0N,  L0CATE, 

L0GIC,  MEASI,  PR0PI,  PR0PR,  SCHEUI,  SCHEBR, 
EPHEM,  TIME,  TRAJl , TRAJ2 
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C0VP  - 9 


#1000 

I ' .1 1 . 

Set  up  TRAJ 
parameters  for 
trans-matrices 
and  events 


:100 


Propagate  input  covariance 
from  1 to  TF  evaluating 
at  all  intermediate  thrust 
events  to  preserve  effective 
process  noise  model 


i 


i 
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CYEQEC-1 


3.3.6  Subroutine; 


Purpose; 


Method: 


CYEQEC  (STACYL,  GRUSSU,  ECEQ,  0MEGA,  GEQSTA, 
GECSTA) 

To  compute  instantaneous  geocentric  equatorial 

and  geocentric  ecliptic  cartesian  coordinates 

of  a point  (station  location)  given  in  geocentric 

equatorial  cylindrical  coordinates. 

Given  cylindrical  coordinates  r,  jj^,-z(spin  radius, 

longitude,  z - height)  instantaneous  Greenwich 

hour  angle  (G) , and  sidereal  rotation  rate,  uu, 

equatorial  coordinates  are 

X " r cos  (X-t  G) 
eq  s 

y=rsinC^+G) 
eq  s 

-z  ^ = z 
eq 

X = -£or  sin  C X-t  G)  = -£<>  y 
eq  s ■'eq 

y — X cos  { X G)  = 61  X 
•'eq  s eq 

z = 0 
eq 

Ecliptic  position  and  velocity  are  computed 

by  the  application  of  the  equatorial  to  ecliptic 
8x 


transformation 


ec/0x 


eq 


ec 


ec 


ec 


dx  /3x  „ 
= ec  eq 


X 


eq 

r 

eq 


eq 
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Kone 


j 


j 


OTEQEC-2 


ordinate  (r  , X»  z) 
s 

Instantaneous  Greenwich 


rate 

Station  geocentric  equa- 
torial position  and  velocity 
Station  geocentric  ecliptic 
position  and  velocity 


DATAG-1 


3.3.7  Program: 
Purpose.: 

Remarks : 


Input/Output:: 

Local  Variables; 
Subroutines  Called; 
Calling  Subroutines; 
Common  Blocks ; 


DATAG 

Executive  control  of  G0DSEP  data  overlay. 
DATAG  performs  no  computations.  It  merely 
calls  three  separate  subroutines  to  break  the 
data  overlay  coding  into  more  easily  managed 
blocks. 

All  initialization  parameters  for  G0DSEP. 

None 

DEFALT,  INPUTG,  CSUTPTG 

G0DSEP 

None 


Logic  Flow: 


None 
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3.3.8  Subroutine: 
Purpose ; 

Remarks : 


DEFALT 

To  establish  default  values  for  all  error 
analysis  inputs. 

Only  those  variables  not  having  default  values 
defined  in  G0DSEP  input  (Vol.  II , User's  Manual, 
Section  2.3)  will  be  included  in  the  following 
Input /Output  list. 


Input/Output; 


Variables 

Input/ 

Output 

Argumeni 

Common 

EP0CH 

I 

C 

GHZERCi 

0 

C 

IAU6DG 

I 

C 

lAUGPH 

0 

C 

lAUGST 

0 

G 

IBAZEL 

0 

€ 

Definition 

Julian  date  of  launch 
epoch 

Greenwich  hour  angle  eval- 
uated at  time  EP0CH 
Array  of  flags  controlling 
dynamic  parameter  augmen- 
tation for  transition 
matrices 

Location  of  ephemeris 
element  flags  in  lATJG  array 
Location  of  station  location 
parameter  flags  in  lAUG 
array 

Location  of  azimuth  and 
elevation  angle  measurement 
bias  flags  in  lAUG  array 
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Variables 


IBDiAM 


IBSTAR 


IB2WAY 


1B3WAY 


IDMAX 


lEP 


Input/ 

Output 

0 


Argument 

Conanon 


C 


0 c 


0 


c 


0 


c 


o 


c 


0 


G 


Definition 

Location  oJE  apparent  planet 
diameter  measurement  bias 
flag  in  lAUG  array 
Location  of  star- planet 
angle  measurement  bias 

* 

flags  in  lAUG  array 
Location  of  2- way  range 
and  range-rate  measurement 
‘bias  flags  in  lATJG  array 
Location  of  3-way  range 
and  range-rate  measurement 
bias  flags  in  lAUG  array 
Maximum  allowable  parameter 
number  for  any  dynamic  param- 
eter in  lAUG  array 
Parameter  used  to  locate 
ephemeris  body  position 
and  velocity  in  UP,  VP, 

UREL,  VREL  arrays  (common 
/XEAJ2/) 


ITP 


Same  as  lEP,  only  fcr  tar- 
get body 


. 222 


DEFALT- 3 


. Input/  Argument 

Variables  Output Conunon 

LIST  0 C 


LISTDY  -0  C 


I^JCS  0 


C 


HAJCAtIG  0 C 


Definition 

Array  listing  parameter 
numbers  of  augmented  state 
vector.  For  first  six 
locations  (for  basic  S/C 
state)  LIST(I)  = -I 
List  of  parameter  numbers 
of  all  dynamic  parameters 
augmented  to  S/C  state  for 
transition  matrices.  De- 
fining values  determined 
by  lAUGDC  array. 

Parameters  locating  first 
word  of  blank  common  avail 
able  to  TMJ  (sec.  3.5  ) 
default  value, 

= 1 

Maximum  allowable  length 
of  augmented  state  vector. 
Determined  by  dimensions 
of  LIST  and  ADGLAB  arrays. 


Default  value,  ” 30, 
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Input/  Argument 

Varia'bles  Output Conunon Definition 

MAXDIM  0 C Array  of  raexltmiiii  allnwiihU' 

dimensions  on  individual 
state  vector  partitions. 

Values  set  are  governed 
by  dimensions  of  input  co- 
variance  matrices  in  sub- 
routine NM*jIST  (sec  3.3.25). 
Default  values  are: 

(1)  = 6,  S/C  state  vector 

(2)  = 11,  solve- for  parameters 

(3)  = 13,  dynamic  consider 

parameters 

(4)  = 15,  measurement  con- 

sider parameters 

(5)  = 10,  ignore  parameters 

MAXSTA  0 C Largest  station  number 

allowed  for  augmenting 
2-way  or  3-way  range  or 
pange-rate  bias  to  the  S/C 
state  vector 

NPHSTM  0 C Length  of  augmented  state 

vector  of  dynamic  parameters 
used  in  transition  matrices 
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Inpu  tf 

Variables  Output 


0tlEGAG  0 


RAD  I 


TEND  I 


THRUST  I 


TH 


I 


TSTART  I 


Argument 

Common 


C 


C 


G 


C 


C 


C 


Definition 

Earth  sidereal  rotation 
rate  default  value 
= 6.300388099  rad/day 
Conversion  factor,  degrees/ 
radian. 

Trajectory  end  time  in 
days  referenced  to  EP0CH 
as  defined  in  $TRAJ  name- 
list (Vol.  II,  User’s 
Manual,  sec.  2.1) 

Array  defining  thrust  con- 
trol policies,  phase  end 
times  and  specific  param- 
eter values  (see  common 
4t:raji/) 

Conversion  constant,  seconds/ 
day 

Trajectory  start  time  in 
days  referenced  to  EP^iCE, 
as  defined  in  ^TRAJ  namelist 
(Vol.  II, 


User’s  Manual 
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Input/  Argument 

Variables  Output Common Definition 

XLAB  0 C Six-character  Hollerith 

labels  corresponding  to 
input  parameters  as  defined 
by  lAUG  array  (see  Vol.  II, 
User's  Manual,  Sec.  2.3) 


Local  Variables; 

Variable Definition 

MAXPAR  Maximum  number  of  parameters  available 

for  augmentation.  Governed  by  dimen- 
sions of  lAUG  and  XLAB  arrays.  Current 
default  value  = 50. 

TFRAC  Fraction  of  a day  the  initial  Julian 

date*  EP0CH,  is  away  from  midnight 
Greenwich  Mean  Time,  Used  in  computing 
GHZER0 . 


Subroutine  Called: 
Calling  Subroutines: 
Common  Blocks: 


B0MB,  L0CATE 
DATAG 

M0RK,  (LLANK),  C0NST,  DAXAGI,  DATAGR,  DIMENS, 
GUIDE,  KEFC0N,  LABEL,  L0CATE,  L0G1C,  ^^EASI, 
MEASR,  PR0PI,  PR0PR,  SCHEDI,  SCHEDR,  TUffi, 
TRKDAT,  TRAJl,  TRAJ2 


Logic  Flow: 


None 


3.3.9 

Purpose 

Remarks 


3 


1 
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Subroutine i DIMENS 

To  define  dimensions  and  locations  of  all 
matrices  located  in  blank  common. 

Blank  common  locations  set  aside  by  the 
variables  PHI,  PL0CAL  and  PTEMP  are  normally 
allocated  the  same  number  of  words  of  storage 
as  for  a covariance  matrix.  There  are,  how- 
ever, two  exceptions  to  this  standard.  If 
the  dimensions  of  transition  matrices  to  be 
read  from  the  STM  file  are  greater  than  those 
of  the  augmented  covariance  matrix,  or  if  both 
the  transition  matrices  from  the  STM  file  and 
the  augmented  covariance  are  smaller  than  9x9 
and  guidance  events  are  to  be  executed.  The 
second  case  requires  a minimum  9x9  area  since 
thrust  bias  sensitivities  are  required  for  low 
thrust  guidance  maneuver  evaluations. 

Since  only  one  secondary  overlay  may  reside  in 
core  at  any  one  time,  all  blank  coinmon  locations 
associated  only  with,  secondary  overlays  begin  at 
the  same  address.  Therefore,  L0CS  '(trajectory), 
H (measurement)  and  PGl  (guidance)  are  set  to 


the  same  location 


i 


J 


J 


1 


3 
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Input/Qutput ! 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

AUGIAB 

0 

C 

Hollerith  labels  for  all 
parameters  augmented  to 
state  vector. 

C0NRD 

I 

C 

Logical  flag  indicating 
if  control  uncertainties 
read  in. 

H 

0 

C 

Location  in  blank  common 
of  observation  matrix. 

lAUG 

I 

c 

Array  of  parameter  augmen- 
tation flags. 

IAU6DC 

0 

c 

Dynamic  parameter  augmen- 
tation flags. 

lAUGPH 

I 

c 

Location  in  lAUG  array  of 
ephemeris  element  flags. 

IDMAX 

I 

c 

Maximum  parameter  number 
allowed  for  a dynamic  para- 
meter in  lAUG  array. 

IGMN 

I 

c 

Integer'  flag  for  OD  algo- 
rithm. 

IGF0SM 

I 

c 

Integer  flag  indicating 
input  form  of  control 
uncertainty  matrices. 

IPF0RM 

I 

c 

Integer  flag  indicating 
input  form  of  knowledge 
uncertainty  matrices. 

LIST 

0 

c 

Array  containing  parameter 
numbers  for  all  parameters 
in  augmented  state  vector. 

LISTDY 

0 

c 

Dynamic  parameter  augmen- 
tation numbers. 

L0CAUG 

0 

c 

Array  locating  sub-blocks 
within  augmented  covariance 
(See  AUGCNV,  Section  3.3.1) 

L0CBLK 

0 

c 

Array  locating  covariance 
sub-blocks  within  block 
form  (See  AUGCNV,  Section 
3-3. n. 

DIMENS -3 


Variable 

Input/ 

Output 

Argument/ 

Coiranon 

Definition 

L0C1AB 

0 

C 

Array  locating  state  vector 
partitions  within  LIST  and 
AUGLAB  arrays. 

L0GI‘0 

0 

c 

Location  in  blank  common 
where  TRAJ  (Section  3.5) 
picks  up  covariance  matrix 
to  be  integrated. 

L0CS 

0 • 

G 

Location  in  blank  common 
of  areas  available  to  TRAJ 
(Section  3.5), 

MAXAUG 

I 

C 

Maximum  allowable  length 
of  augmented  state  vector.  ’ 

MAXDIK 

I 

C 

Array  of  maxi.mum  allowable 
•dimensions  of  individual 
state  vector  partitions.  • 

NAUG 

0 

G 

Length  of  augmented  state 
vector. 

KAUGSQ 

. 0 

C 

NAUG*NAUG, 

NBLK 

0 

G 

Number  of  words  occupied 
by  augmented  covariance 
stored  in  block  form  (See 
AUGCKV,  Section  3.3.1). 

NDIM 

0 

C 

Array  of  current  dimensions 
‘ of  individual  augmented 
state  vector  partitions. 

NEPHEL 

0 

C 

Number  of  ephemeris  elements 
in  augmented  state  vector. 

N6UID 

I 

C 

Number  of  guidance  events 
to  be  executed. 

NPHSm 

0 

C 

Number  of  dynamic  parameters 
included  in  transition 
matrices  on  STM  file. 

.HS0LVE 

0 

C 

Total  number  of  parameters 
to  be  solved-for  by  filter 
(including  S/C  state). 
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DIl'IENS-4 


Location  in  blank  coimnon 
o£  transition  matrix* 

Working  locations  in  blank 
common  for  intermediate 
operations  on  covariances 
and  transition  matrices. 

Location  in  blank  common 
of  weighted  least  squares 
reference  covariance. 

Array  of  Hollerith  labels 
for  all  parameters  available 
for  augmentation. 


DATAGI,  DATAGR,  DIMENS,  LABEL, 
MEASI,  SCHEDI,  TRAJ2 


Logic  Flow: 


DIME NS '5 


DIMENS 


m 1 = 1,5 


Compute  KEPHEL^  Zero  NDIM 
Array.  Redefine  lAUG  Array 
To  Distinguish  Between 
• Measurement  And  Dynamic 
Consider  Parameters 


Compute  NDIM(I), 
LIST (I),  AUGLAB(I), 
NAUG,  NAUGSQ 


Compute  Blank  Common  Locators! 
If  No  Guidance,  Leave  No 
Storage  Behind  PG, 

If  No  WLS  Filtering,  Leave 
No  Storage  Behing  n^LS 


NDIM(I)  f-  MAXDIM(I) 

Is  Au^ented  State  Vector 
Partition  Within  Allowable 
Dimensions? 


IPF0RM  = 1,  Or 
CONRD  = T And  IGF0RM  = 1 
Have  Either  Knowledge  Or 
Control  Uncertainties  Been  Input 
■ In  Unpacked  Form? 


NDIM(I)*NDIM (J)  MAXDIM(I)*MAXDIM(J) 
Does  Total  Length  of  Any  Packed 
Covariance  Sub- Block  Exceed  Total 
Length  Allotted  To  It  On  Input? 
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3.3. LO  Subroutine;  DYN0  (T,  DT,  PHIMAT) 

Purpose;  To  compute  effective  process  noise. 

Method;  See  Volume  1,  Analytical  Manual,  Section  6.2, 

Remarks;  For  PDOT,  DYN0  is  used  to  modify  the  thrust  bias 

' m 

and  noise  partitions  of  the  augmented  covariance 
when  the  number  of  thrusters  has  changed  {at 
thrust  switching  events) . 

To  change  the  process  noise  model,  subroutines 
DYN0,  0UIPTG,  and  L0ADFM  (in  TRAJ)  may  be 
affected  for  PDOT,  and  subroutines  DYN0  and 
STMUSE  may  be  affected  for  STM  usage  (effective 


process  noise). 


Input /Output : 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

T 

I 

A 

Trajectory  time  at  begin- 
ning of  propagation 
Interval  (STM  only) 

DT 

I 

A 

Interval  length  (days). 

PHIMAT 

I 

A 

Augmented  transition 
matrix  over  propagation 
interval^ 

EPTAU 

1 

C 

Array  of  process  noise 
correlation  times. 

EPVAR 

I 

C 

Array  of  process  noise 
variances . 

GT 

I 

c 

Transformation  matrix 
from  magnitude,  cone, 
clock  to  ecliptic  carte- 
sian coordinate  system 
evaluated  at  end  of  propt* 
agation  interval. 

GTSAVE 

X. 

c 

Same  as  GT  matrix,  only 
evaluated  at  beginning  of 
propagation  interval 

1 


I 
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Variable 

Input/ 

Outuut 

Argument/ 

Common 

Definition 

HAUG 

I 

C 

Length  of  augmented  state 
vector. 

NTPHAS 

I 

G 

Number  of  current  thrust 
phase. 

P 

I 

C 

Location  in  blank  common 
of  knowledge  covariance. 

PTEMP 

I 

C 

Location  in  blank  common 
of  temporary  covariance* 

Q 

0 

c 

Effective  process  noise 
matrix  (6x6) , 

THRUST 

I 

c 

Array  of  thrust  phase 
definition  parameters. 

TM 

I 

c 

Covrversion  constant, 
seconds /day. 

Local  Variables; 

Variable 

Definition 

NCPHAS 

Number  of  1 

next  thrust  phase 

0MEC0V 

Effective  velocity  covariance  in 
magnitude,  cone,  clock  coordinates. 

PHISUB 

6x3  sub-block  of  PHIMAT  representing 
sensitivity  of  position  and  velocity 
at  end  of  interval  to  velocity  at 
beginning  of  interval. 

THRSTR 

Ratio  of  operating  thruster  at  phase 
change . 

VEFFl 

Effective  ecliptic  cartesian  velocity 
covariance  at  beginning  of  interval. 

VEFF2 

Effective  ecliptic  cartesian  velocity 
covariance  at  end  of  interval. 

Subroutines  Called; 

AMABT 

SYMUP 

, L0CLST,  MMABAT 
, VAR'^D,  ZER0M 

, MPAK,  MUNPAK,  SCALE,  SDVAR, 

Calline  Subroutines: 

C0VP, 

GUIDE,  SETEVH 

Common  Blocks: 

W0RK, 

(BUNK),  C0NST, 

DIMENS,  L0CATE,  L0GIC, 

PR0PR,  TRAJl,  TRAJ2 
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EIGPRN-1 


3,3.11  Subroutine 
Purpose : 

Remarks : 


Input/putput : 

Variable 

A 

N 

PVSUB 

PZER0 

VZER0 


EIGPRN  (A,  N,  PVS'JB,  PZER0,  VZER0) 

To  compute  and  print  eigenvectors  and  eigen- 
values of  an, input  matrix. 

Tt7o  options  on  computing  eigenvalues  and 
vectors  are  provided.  The  first  operates  on 
the  complete  input  matrix.  The  second  operates 
on  the  3x3  position  and  velocity  sub-blocks 
only,  which  are  assumed  to  be  the  first  and 
second  3x3  diagonal  sub-blocks,  respectively. 


Input/  Argument/ 

Output Common Definition 


I A 

I A 

I A 


I A 


I 


A 


Input  matrix. 

Dimension  of  input  matrix 
(assumed  to  be  square). 

Logical  flag  controlling 
computation  option. 

=T,  operate  on  position 
and  velocity  sub- 
blocks . 

operate  on  complete 
matrix. 

Off-diagonal  annihilation 
value  for  complete  ma’  :ix 
if  PVSUB  = .FALSE,  or  for 
position  sub-block  only 
if  PVSUB  = .TRUE. 

Off-diagonal  annihilation 
value  for  velocity  sub- 
block if  PVSUB  ^ .TRUE. 

Not  used  if  PVSUB  = .FALSE. 


EIGPRW-2 


Local  Variables: 


Variable 

Definition 

ICYCLE 

Cycle  control  flag  when  PVSUB  = 
.TRUE,  indicating  whether  processing 
position  or  velocity  sub-block. 

0DZER0 

Off-diagonal  annihilation  value  given 
to  EIGENV, 

VALPV 

Array  of  eigenvalues  returned  by 
EIGEKV. 

VECPV 

Array  of  eigenvectors  returned  by 
EIGENV. 

Subroutines  Called: 

EIGENV,  tlAT0UT,  SQRT,  tlPAK 

Calling  Subroutines; 

SETEVN,  RELC0V 

Cotninon  Blocks ; 

None 
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ESCHED-1 


3.3.12  Subroutine:  ESCHED  (KIND,  KCNT,  NST0P,  TIME) 

Purpose!  To  modify  event  counters  to  guarantee  that  of 

all  events  requested  in  namelist  ^G0DSEP,  only 
those  occurring  between  the  initial  and  final 
times  of  the  present  error  analysis  are  sched- 
uled. 

Me thod : If  five  events  of  a single  type  are  scheduled  * 

according  to  namelist  0G0DSEP,  three  of  which 
occur  before  trajectory  time  TCURR,  the  remain- 
ing two  events  are  .not  shifted  into  the  first 
two  locations  for  that  event.  Rather,  the 
event  counter  is  set  to  3,  informing  the 
scheduler  that  the  fourth  event  of  that  type 
will  be  the  first  scheduled. 

Remarks : If  any  guidance  events  are  scheduled,  but  the 

last  is  not  scheduled  within  .5  day  of  error 
analysis  final  time,  this  subroutine  automatically 
schedules  an  additional  guidance  event  of  policy 
zero.  This  merely  forces  a print  of  all  control 
uncertainties  at  the  final  time. 

Also,  to  minimize  complexity  of  SGHED  (Section 
3.3.36),  guidance  event  times  are  adjusted  by 
the  delay  time  in  this  subroutine. 


BSCHED-2 


Input/Output : 

Input/ 

Namelist/ 

Variable 

Output 

Comraon 

Definition 


KIND 


KGNT 

NST0P 

TIME 

EVLAB 

I6P0L 

IGREAD 

TCUKR 

TCIII0F 

TDEUY 

TFINAL 


I 


0 


I/O 


X 

I 

X 

I 

I 

I 

I 

I 


A Event  code . 

=2,  eigenvector 
=3,  thrust 
= 4,  guidance 
= 5,  prediction 

A Event  counter,  set  equal 

to  number  of  events  sched- 
uled by  namelist  0G0DSEP 
which  must  be  skipped  dur- 
ing execution. 

A Total  number  of  events  of 

type  KIND,  including  those 
skipped  according  to  NCNT. 

A Array  of  scheduled  event 

times. 

C Array  of  Hollerith  event 

labels. 

C Array  of  guidance  policy 

flags. 

G ■ Array  of  guidance  namelist 

read  control  flags. 

C Current  (and  initial)  tra- 

jectory time. 

C Array  of  guidance  event 

cutoff  times. 

C Array  of  guidance  event 

delay  times. 

G Trajectory  final  time. 

Array  of  times  predicted 
to 


TPEED2 


I 


C 


Local  Variables; 

Variable 

NUMBER 

Subroutines  Called: 
Calling  Subroutine! 
Common  Blocks; 

Logic  Flow: 


1 
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ESCHED-3 


Definition 


Actual  number  of  events  of  code 
* ^ND  to  be  executed. 


None 

0UTPTG 

LABEL,  SCHEDI,  SCHEDR 
None 


- 


3*3. 13A  Subroutine;  ESLE  (P, 
Purpose;  To  load 


into  augi 


N I 

G0RL0N  I 

lAUG  I 

lAUGST  I 

LIST  I 

NST  I 

SIGL0N  I 

SIGRS  I 

SIGZ  I 


STAL0C 


I 


C 


Array  of  station  cylindrical 
coordinates. 


Local  Variables:  • 

Variable 

EQSLE 

IL5iG 

L0CATE 

Subroutines  Called: 
CalliRg  Subroutines; 
Coimnon  Blocks; 

Logic  TTlow: 
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Definition 


Local  array  equivalenced  to  station 
location  standard  deviation  terms. 

EQSLE  (1)  = SIGRS 
C2)  = SIGL0N 
O)  = SIGZ 
(4)  = C0RL0N 

Counter  for  number  of  stations  whose 
location  uncertainties  are  included 
in  the  augmented  state. 

Array  used  to  locate  off  diagonal 
positions  where  longitude  correla- 
tions must  be  loaded  if  more  than 
one  station's  location  errors  are 
augmented. 


None 

INPUTG 

W0RK,  DATAGI,  DATAGR,  DI^^ENS,  MEASI,  MEASR 


None 


FBURN-1 


3.3.13B  Subroutine: 

FBURN 

(SMAT,  UMAX, 

NTARG,  NC0N,  CjONWT,  TARWT, 

TECjfiV 

, GAMMA,  VMAT, 

BURNP,  LTARG,  LABS,  LABC0N, 

VTA, 

KAUG,  TBURN,  LPJ2JN) 

Purpose: 

To  compute  the  low 

thrust  guidance  matrix  and 

associated  guidance 

parameters . 

Method : 

See  Analytic  Manual 

, Section  6.6  (Guidance) 

Input /Output: 

Variable 

Input / 
Output 

Argument/ 

Common 

Definition 

auglab 

I 

C 

Vector  of  labels  for 
augmented  state. 

BURN? 

I 

A 

Mass  and  thrust  accelera- 
tion at  guidance  epoch  and 
cutoff. 

ceJnwt 

I 

A 

Control  parameter  weights. 

ENGINE (10) 

0 

A 

Exhaust  velocity. 

GAMMA 

0 

A 

Guidance  matrix. 

labciSn 

I 

A 

Vector  of  control  parameter 
labels . 

labs 

I 

A 

Vector  of  printout  labels. 

LPefN 

I 

C 

Location  In  blank  common 
of  knowledge  covariance. 

LTARG 

I 

A 

Vector  of  target  lables. 

NAUG 

I 

A 

Dimension  of  augmented  state. 

NC0N 

I 

A 

Number  of  control  parameters. 

KTARG 

I 

A 

Number  of  target  parameters. 

PTEMP 

I 

C 

Location  in  blank  common  of 
temporary  (working)  covariance. 

SMAT 

I 

A 

Sensitivity  matrix  of  target 
WRT  control  parameters.  , 

J 


1 


1 


J 
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FBURN-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TARWT 

I 

A 

Target  parameter  weights. 

TBURN 

I 

A 

Duration  of  guidance  burn. 

TEC^^7 

I 

A 

Target  ei’ror  covariance 
before  guidance. 

UMAX 

I 

A 

Vector  of  maximum  control 
corrections  allowed. 

VM4T 

I 

A 

Variation  matrix  of  target 
WRT  state  (at  guidance 
epoch) , 

VTA 

1 Variables: 
Variable 

I 

A 

Logical  flag  for  variable 
time  of  arrival  guidance. 

Definition 

CGAM 

Guidance  matrix  for  constrained 
control  parameters. 

CSWATE 

Weighting  factor  for  time  parameters. 

DC0N 

Scaling  factor. 

GAMT 

0 

Guidance  matrix  transpose  used  as 
working  array. 

LCJ^N 

Local  vector  of  control  labels 
(LABC0N) . 

LISTC 

Vector  of  control  parameter  numbers 
(new  ordering). 

LISTU 

Vector  of  control  parameters  numbers 
(old  ordering). 

NCU 

Number  of  constrained  controls. 

NUN 

Number  of  unconstrained  controls. 

STEM? 

Local  sensitivity  matrix  (SHAT). 

TRC^V 

Target  error  covariance  resulting 
from  residual  (non-removeable)  control 

error. 


J 


J 


I 


2A4-C 


FBURK-3 


Def tnitton 


Control  parameter  correction  matrix. 


UMAXI 


Local  vector  of  control  bounds  (UMAX). 


UWATE 


Local  vector  of  control  weights  (C^NWT) 


Subroutines  Called:  ADD,  AMAB,  AMABT,  C^PY,  C^PYT,  GENINV,  ICjEJPY, 

IDENT,  L0ADRC,  MATfJUT,  MMABT,  MMATBA,  NEGMAT, 
PRSDEV,  SCALE.  VARSD,  ZER0M 

Calling  Subroutine;  GUIDE 


Common  Blocks i 


(BLANK),  CONST,  LABEL,  L0CATE,  TRAJI,  W0RK 


Logic  Flow: 


FBURN 


I 


FBURN-4 


Compute  Guidance  liatrix  (GAMMA) 
and  Control  Uncertainties  (U)  for 
Unconstrained  Controls 


Check  Each  Diagonal  of  U Against 
Its  Constraint  (UMAKI)  and  Scale 
If  Violated 


Compute  Residual  Target  Error 
(TRC0V) 


Constraints 
i.  Violated 


Reorder  Control  Set; 
Unconstrained  Parameters 
First,  Constrained  Next 


Compute  Final  Guidance  Matrix , 
Control  Collections,  Guidance 
Fuel  Rfiquirements 


Any  ^ 
Constraints 
Activated 


Compute  Residual  State 
Error  and  Update 
Knowledge  Covariance 


Return 


t 


J 


3.3.14  Subroutine; 

Entry  Point; 
Purpose; 

Method; 


Remarks: 


Input /Output ; 

Variable 

P 
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FILTR»1 


FILTR  (P,  PC0N,  H,  R,  N,  KS,  KR,  GAIK,  RESID, 
PP) 

FILTR2 

To  compute  the  orbit  determination  filter  gain 
for  a measurement  and  update  the  kno:?ledge 
covariance  using  that  gain, 

A general  purpose  filtering  routine  (See 
Analytic  Manual,  Sections  6.4  and  6.5)  which 
nominally  computes  the  Kalman"’5chmldt  (KS) 
gain  and  updates  the  knowledge  covariance. 
Alternately,  via  the  entry  point,  PILTR2,  the 
covariance  can  he  updated  with  an  input  gain. 
Several  places  in  FILTR  computations  require 
the  use  of  sub-blocks  of  an  input  or  inter- 
mediate matrix.  Wherever  possible,  advantage 
is  taken  of  internal  storage  formats  so  that 
the  full  matrix  may  be  accessed  using  only  the 
correct  sub-"'bS?ick  dimensions,  eliminating 
requirement  for  pulling  out  the  sub-block  and 
storing  it  in  an  intermediate  array. 


Input/ 

Output 

Argument/ 

Common 

Definition. 

I 

A 

Knowledge  covariance  before 
measurement. 

E 


I 


A 


Observation  matrix 


PlLTR-2 


Pages  247  and  248  are  deleted 
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3,3.15  Subroutine;  GAINF  (K,  RDWRIT) 

Purpose:  To  read  gain  matrix  from  or  write  gain  matrix 

to  GAIN  file  (TAPE  4). 

Input/Output : 

Input/  Namelist/ 

Variable On  tpu  t Common Definition 


K I/O 

RDI7RIT  I 


CHEKPR(4)  I 


MESEVN  ■ 


• NR 


I 

I 


HS0LVE  I 


A Gain  matrix  (real)* 

A Read/write  control  flag 

= 4HREAD,  read  gain  matrix 
= Sffi'JRITE,  write  gain 
matrix.. 

C Logical  check  print  flag, 

operative  for  both  read 
and  write  modes. 

“ T,  print  gain  matrix  to 
output 

' = ?,  do  not  print  gain 

matrix. 

C Measurement  code  corre- 

sponding to  gain  matrix, 

C Number  of  columns  in  gain 

matrix, 

C Number  of  rows  in  gain 

matrix. 


Local  Variables: 


Variable  Definition 

IffiV  Measurement  code  read  from  GAIN  file. 

MEV  is  compared  to  MESEVN,  the  code 
provided  from  SCHED  (Section  3,3,36) 
to  guarantee  proper  meshing  of  gain 
with  its  original  data  type. 


Subroutines  Called:  MAT0UT,  B0MB 


GAINF-2 


Calling  Subroutine;  MEAS 

Common  Blocks ! L0GIC,  MEASI,  SCHEDI 


Logic  Flow; 


None 


GAINUS-1 


3-3.16  Subroutine;  GAINUS  fK) 

f*iirp<J«e ; Tn  h<*  rcpljui'*!  by  iiri<'r  nny  p.n  1 n mnl-rfx 

iilgorlLhtii  1 >i  desired  uilier  lltsn  Kii Imuti-Schmldt , 
sequential  weighted  least  squares,  or  read 
from  GAIN  file. 

Remarks;  Users-supplied  gain  is  expected  to  be  an  infre- 

quently exercised  option.  The  user  who  wishes 
to  incorporate  his  own  algorithm  should  bo 
very  familiar  with  filtering  theory.  Though 
there  are  no  "wrong"  algorithms,  any  algorithm 
not  carefully  thought  out  --  and  many  that  are  -- 
will  generally  be  meaningless  and  harmful.  The 
only  absolute  rule  is  that  the  gain  matrix  has 
dimensions  NS0LVE  by  NR  (common/MEASI/) , 

1 

Calling  Subroutine;  MEAS 
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f’ 


r 

V . 


' _/*3  * 17 


Subroutine:  GUIDE . 


Purpose; 


Method: 


Input /Output: 
Variable 


To  perform  all  computations  and  printout  for  the 
execution  of  a guidance  maneuver. 

Both  low  thrust  and  impulsive  AV  guidance  are 
available.  See  Vol,  I,  Analytical  Manual,  Sec, 
6,5  for  details. 

Input/  . Argument/ 

Output Common Definition 


AUGIAB  I 


C Hollerith  label  array  for 

all  augmented  parameters. 


GHEKPR(5)  I 


! 


G0NWT  I/O 

miAi  I 

ISKDKBR  I 

DYE0IH  I 

. EViV  I 


GT 


1/0 


C 


c 

c 

c 


c 

c 


c 


Check  print  flag 
=T,  low  thrust  guidance  - print, 
knowledge  and  control  un- 
certainties at  end  of  burn 
interval  and  transition 
matrix  over  burn  interval. 
AV  guidance  - prints  eigen- 
values and  eigenvectors 
of  AV  covariance. 

=P,  no  optional  print 

Array  of  control  weights. 

Guidance  delay  time  for 
current  maneuver. 

Keplerian  to  cartesian  coord- 
inate transformation  for 
epheraeris  body  at  beginning  of 
bum  interval. 

Dynamic  noise  flag 

Velocity  covariance  off- 
diagonal  annihilation  value 
for  ,eigenvalue/vector  compu- 
tation. 

Transformation  matrix  for 
dynamic  noise  computation, 

GT  matrix  evaluated  at  be- 
ginning of  burn  interval. 


GTBURK 


I 


G 


I 


J 


1 


3 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

GTDIAY 

I • 

C 

GT  matrix  evaluated  at 
beginning  of  guidance  delay 
period. 

GTSAVE 

I/O 

9 

Transformation  matrix  for 
dynamic  noise  computation. 

lEP 

I ■ 

c 

See  UREL,  VREL  below. 

XP0L 

I 

c 

Guidance  policy  for  current 
maneuver. 

IREAD 

I 

c 

Namelist  $GEVENT  read  control 
flag  for  current  maneuver. 

ITP 

I 

c 

See  UEEL,  VREL  below. 

L0CTC 

I 

c 

Location  in  blank  common  of 
transition  matrix  from  cutoff 
time  to  target  condition  time. 

NAUG 

I 

c 

Length  of  augmented  state  vector 

NCNTG 

T 

c 

Number  of  current  guidance 
maneuver. 

KC0H 

I 

c 

Number  of  low  thrust  controls. 

NEPHEL 

I 

G 

Nxmiber  of  ephemeris  elements 
in  augmented  state. 

HPHSTM 

X 

G 

Dimension  of  state  transition 
matrix  from  TRAJ  (Sec,  3,5  ) 
with  dynamic  parameters  only. 

NTP 

I 

C 

Code  number  for  target  body. 

P 

I 

( 

c 

Location  in  blank  contmon  of 
knowledge  covariance  at 
beginning  of  guidance  delay 
period . 

P6 

1 

C 

Location  in  blank  conmon  of 
control  covariance  at  beginning 
of  guidance  delay  time. 

PGl 

I 

c 

Locations  in  blank  common 
for  intermediate  covariances 

PG2 

I 

c 

required  for  guidance  compu- 
^ tations. 

PG3 

I 

c 1 

PG4 

I 

c J 

1 


1 


I 


-i 


1 . 4. 
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Variable 

Input/ 

OutDUt 

Argument/ 

Common 

Definition 

PHI 

I 

C 

Location  in  blank  common  of 
transition  matrix  over  delay 
period , 

PI 

I 

C 

Mathematical  constant^  IT 

PLAB 

I 

C 

Array  of  knowledge  covariance 
labels . 

PL0CAL 

I 

C 

Location  In  blank  common  of 
covariance-sized  working  storage. 

PTEMP 

I 

C 

Same  as  PL0CAL. 

RAD 

I 

C 

Conversion  constant,  degrees/ 
radian. 

S 

I 

C 

Sensitivity  matrix,  cutoff 
state  w.r.t.  controls. 

SMAT 

I/O 

C 

Sensitivity  matrix,  targets 
WRT  controls. 

TBURN 

I 

c 

Burn  interval  duration  for 
currf'nt  maneuver. 

TIMFTA 

I 

c 

Target  condition  evaluation 
time  for  fixed  time  of 
arrival  guidance. 

TM 

I 

. c 

Conversion  constant,  seconds/day. 

T0FF 

I 

c 

Cutoff  time  for  current  maneuver. 

T0N 

I 

c 

Startup  time  for  current 
maneuver. 

TSTM 

I ' 

c 

Most  recent  STM  file  time  point. 

TST0P 

I 

' c 

Trajectory  stop  time  from  inte- 
grator for  B-plane  or  closest 
approach  targeting. 

UREL(1,IEP) 

I 

c 

S/C  position  relative  Co  ephemeris 
body  at  target  condition  time. 

VARDV. 

I 

c 

Array  of  execution  error  variances 

VARMAT 

I/O 

c 

Variation  matrix,  sensitivity 
of  target  conditions  to  cutoff 
state. 

VREL(1,IEP) 

I 

c 

S/C  velocity  relative  tp 
ephemeris  body  at  target  condition 
time. 

- -J 


GUIDE- 4 


Input/ 

Variable  Output 

VRNIER  I 


Argument/ 

Common 


Definition 

Logical  flag 
= X,  current  maneuver  is 
vernier. 

= F,  current  maneuver  not 
vernier. 


Local  Variables; 


Variable 


Definition 


LABC0N 

CSWATE 


DELTAV 


DVC0V 


Array  of  control  Hollerith  labels. 

Dimensional  weighting  for  start-up  and 
cutoff  time  controls. 

Expected  velocity  update  for  ^V  guidance. 
Impulsive  Av  covariance 
Mean  AV  magnitude. 

P 

Variation  matrix,  target  conditions  wrt 
state  at  target  condition  time. 


GAMMA 


Guidance  matrix 


ITARG 


JST0P 

LPG0FF 


Labelling  array 

Input  parameter  to  (Sec. 3.6,5) 

Input  parameter  to  E.C0HP  (Sec.  3.6.5) 

Location  in  blank  cotranoij,  of  control 
covariance  at  cutoif  time. 


LPG0N 


LP0FF 


Location  in  blank  common  of  control 
covariance  at  startup  time. 

Location  in  blank  common  of  knowledge 
covariance  at  cutoff  time. 


LP0N 


KTARG 


PHIBRfI 


Location  in  blank  common  of  knowledge 
covariance  at  startup  time. 

Number  of  ;:argets. 

6x6  state  transition  matrix  over 
bum  interval. 


PHIXAB 


6x6  state  transition  matrix  from 
cutoff  to  target  condition  time. 


/ 


1 


I 


1 


■i 
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Variable 

Definition 

SIGDV 

Standard  deviation  in 

LABTAR 

Array  of  target  labels* 

TARTIM 

Target  condition  evaluation  time. 

TEMP 

Hollerith  prefix. 

LTARG 

Current  target  label. 

TRS 

Trace  of  jSiV  covariance. 

VMAT 

Variation  matrix,  target  parameters 
WRT  state  at  guidance  epoch. 

VTA 

Logical  flag  for  variable  time  of 
arrival  low  thrust  XYZ  guidance 
(if  TRUE). 

Subroutines  Called: 

ADD,  C0PY,  C0RREL,  DYN0,  EC0MP,  EIGENV, 
FBURiJ,  GENINV,  IC0PY,  MAT0UT,  MMAB, 

MMABAT,  MPAK,  MUNPAK,  NEGMAT,  PR0P,  PRSDEV, 
PUNC0R,  RELC0V,  SCALE,  SUB,  VARSD,  VERR. 

Comnion  Blocks: 

W0RK,  (BLANK),  C0NST,  DIMENS,  GUIDE,  KEPC0N 
label,  L0CATE,  L0GIC,  MEASI,  PR0PR,  SCHEDI, 
SCHEDR,  TIME,  TRAjl,  TRAJ2. 

GUIDE-6 


Logic  Flow: 


GUIDE -8 


TBURN  ^0. 
(Iirpulaive 
guidance  ?) 


Propagate 
knowledge  and 
control  through 


CHEKPR  (5)  = tA 
^Optional  print  ■ 
at  cutoff 
time  ?) 


print  bum  interval 
transition  matrix, 
knowledge  and 
control  at  cutoff 


Store  6x6  control  covariance  for 
maneuver  sizing  C0MM0N  (FISCAL). 
Use  control  minus  knowledge  for 
Vernier.  Use  target  relative  If 
ephemer j s body  and  target  body  are 
the  same. 
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3.3,18  Subroutine;  INPUTG 


Purpose: 

To 

control  all  inputs 

to  G0DSEP 

Remarks : 

Connnon/L0CA,L/  appears. 

in  this  subroutine  only  and 

■ is 

an  ordering  artifice  to  equivalence  its  elements 

to 

the  array  L0CA.TE, 

Input/Output; 

Variable 

Ii,.put/ 

Output 

Argument/ 

Common 

Definition 

C0NRD 

0 

C 

Logical  flag 

=T,  control  uncertainties  read  in 
=P,  control  uncertainties  not  read 

lEPHEM 

0 

C 

Flag  indicating  coordinate  system 
of  ephemeris  elements. 

IGF0RM 

0 

c 

Flag  indicating  form  of  input 
control  uncertainties. 

IPF0RM 

0 

c 

Flag  indicating  form  of  input 
knowledge  uncertainties. 

ISTOIF 

I 

c 

STM  file  usage  flag 

21AXDIM 

I 

c 

Array  of  maximum  dimensions 
allowed  on  input  covariance 
sub-blocks. 

MG 

0 

c 

Length  of  augmented  state  vector. 

P 

0 

c. 

Location  in  blank  common  of 
knowledge  covariance. 

PG 

0 

G 

Location  in  blank  common  of 
control  covariance 

: XIAB 

I 

G 

Array  of  Hollerith  labels  for 
all  possible  augmentation 
parameters . 

Local  Variables: 

• - 

Variable 

Definition 

GXS,  CSU,  CXtJ,  PS,  CSU,  CSV,  CSW,  Locations  in.  blank  common  of 
PU,  CUV,  CUW,  PV,  input  covariance  matrix  sub- 

blocks of  the  same  name. 
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Variable 


Definition 


KT0T 


Total  number  of  words  allocated  for 
each  of  knowledge  and  control  uncer- 
tainties to  be  read  in  namelist 


$G0DSEP, 


Subroutines  Called; 


Calling  Subroutines: 
Common  Blocks; 


NMLIST,  DUENS,  PPAK,  ESIE,  SYMUP 
DATAG 

T?0RKXBUNK) , DATAGR,  aATAGI,  DIMEKS,  L0CATE, 
tlEAsi,  TRAJ2,  L0CA.L 


liOgic  Flow: 


None 
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L0ADRC-1 

3^3.19  Subroutine:  L0ADRC  (A,  MA,  KA,  LISTA,  C,  M,  N,  LISTC,  LTRAN) 
Entry  Points : 10DC0L,  L0DR0W 

Eurpose t To  load  selected  rows  or  columns  from  one  matrix 

to  another. 

Method : * A list  of  codes  (LISTA  for  matrix  A and  LISTC 

for  matrix  C)  is  associated  with  either  column 
entries,  rm-?  entries  or  both.  The  two  matrix 
codes  are  compared  and  vovjs  or  columns  having 
common  codes  are  loaded  from  A to  C, 

L0DC0L  uses  LISTC  to  define  the  columns  of  C, 
Letting  the  index  J run  from  1 to  N,  for  each 
value  of  J,  LISTA  is  searched  for  an  element 
JJ  such  that  LISTC (J)  = LISTA (JJ),  If  no 
equality  is  found,  no  operation  is  performed 
on  column  J of  matrix  C,  If  an  equality  is 
found,  the  elements  of  vow  JJ  in  matrix  A 
are  copied  into  row  J of  C, 

L0DR0W  functions  the  same  way  for  the  rows  of 
C as  L0DC0L  does  for  columns,  LISTC  and  LISTA 
are  then  assumed  to  define  the  rows  of  C and 
A,  respectively, 

L0ADRC  loads  rows  and  columns  simultaneously 
for  square  matrices  where  a single  list  can 
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denote  ordering  for  both  rows  and  columns,  such 
as  covariance  and  transition  matrices.  For  the 
simultaneous  loading,  an  intermediate  transfor- 
mation array  LTRAN  is  used,  LTRAN(I)  is  zero 
if  the  I parameter  of  LISTC  does  not  appear 
in  LISTA,  or  is  equal  to  II  if  LISTA(II)  ^ 
LISTC (I),  Individual  elements  are  transferred 
from  A to  C by 

C(I,J)  = A (LTRAN  (I)),  LTRAN  (J)) 


Remarks : 


Input /Out putt 

Variable 

A 

MA 

KA 

LISTA 

G 


if  LTRAN  (I)  > 0 and  LTRAN(J)  > 0,  otherwise 
element  C(I,J)  is  not  changed  from  input  value. 
The  argument  LTRAN  is  working  storage  and  is 
used  only  when  L0ADRG  is  called.  It  must  have 
a length  at  least  as  great  as  LISTC.  The 
inputs  NA  and  N are  ignored  for  L0ADRC,  A is 
assiraied  to  be  tIAxMA  and  C to  be  ^&M. 


Input/ 

Output 

Argument/ 

Common 

Definition 

1 

A 

Input  matrix. 

I 

A 

m 

Number  of  rot^s  in  A, 

1 

A 

Number  of  columns  in  A, 

I 

A 

Vector  list  of  code  numbers 
for  rows/columns  of  A, 

0 

A 

Output  matrix. 

L0ADRG-3 


Input/  Argument/ 

Variable Output Common Definition 


H I 

A 

Humber  of  rows  in  C. 

N I 

A 

Number  of  columns  in  C, 

LISTC  I 

A 

Vector  list  of  code  num- 
bers for  rows /columns  of 

c. 

LIRAK  0 

A 

Transformation  list  from 
A to  C in  L0ADRC  designed 
as  working  storage  with 
no  specific  output  func- 
tion, Must  have  length 
greater  than  or  equal  to 
that  of  LISTC. 

Local  Variables: 

Variable 

Defini txon 

MIN 

L0DC0L  - 
L0DR0W  - 

minimum  of  (M,  ttA) 
minimum  of  (N,  KA) 

Nhen  copying  rows  or  columns  MIN  is 
the  row  or  column  length.  It  guar" 
antees  that  the  length  of  rows  or 
columns  in  neither  A nor  C is 
exceeded . 

Subroutines  Called: 

None 

GTalling  Subroutines: 

STMRDR^  GUIDE,  C0VP 

, FRED,  STMUSE,  RELG0V 

Gbiisnon  Slocks;  None 

None 


Eagle  Flow; 
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Function; 

L0CLST  flPARAM) 

Purpose : 

To  locate 

the  position  of  a parameter  in  the 

augmented 

state  vector. 

Inout/Output; 

Variable 

Input/ 

Output 

Argument 

Common 

Definition 

IPARAM 

I 

A 

Code  number  of  parameter 
to  be  located. 

muG 

I 

C 

Dimension  of  augmented 
state  vector. 

LIST 

^I 

C 

Vector  of  code  numbers 
augmented  state. 

in 

L0CLST 

0 

Parameter  location,  if 
augmented  state. 

in 

local  Variables;  None 

Subroutines  Called;  None 

Calling  Subroutines : 0BSERV 

Common  Blocks;  DIMENS 


^Function  Value  Output 
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3.3.20B  Subroutine:  MASS'iG  (IFLAG,  P,  PG,  DT) 


Purpose; 


Method; 


To  compute  the  estimated  and  cumulative 
spacecraft  mass  variances. 

See  Analytic  Manual,  Section  6,2  (Covariance 


Propagation) . 


Input/Output; 


Input/ 

Variable  Output 


Argument/ 

Common 


Definition 


DT 

I 

A 

Propagation  interval. 

ENGINE (10) 

I 

C 

Exhaust  velocity. 

EPTAU 

I 

c 

Thrust  noise  correlation 
times. 

EPVAR 

I 

c 

Thrust  noise  variances. 

lAUGDC 

•I 

c 

Vector  of  flags  for  dynamic 
parameters. 

IFLAG 

I 

A 

Flag  for  computational  con- 
trol. 

=0,  do  not  average  accel- 
eration, 

“ 1,  initialize  SAVACC, 

« 2,  update  mass  variance, 

= 3,  update  and  print  mass 
variance. 

NAUG 

I 

C 

Dimension  of  augmented 
state. 

NTPHAS 

I 

C 

Current  thrust  phase  number. 

P 

I 

A 

Know lege  covariance. 

PG 

I 

A 

Pontrol  covariance. 

SAVACG 

I/O 

C 

Previous  thrust  acceleration 

SCMASS 

I 

C 

Current  S/C  mass* 

SGMVAR 

I/O 

C 

Current  mass  variance. 

THRACC 

1 

C 

Thrust  acceleration  vector, 

THRUST 

I 

C 

S/C  thrust  array. 
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Local  Variables! 

Variable 

FL0W 

IKITA 

TAMAG 

Subroutines  Called; 
Calling  Subroutines; 
Connnon  Blocks : 

Logic  Plow: 


Definition 


S/C  mass  flow  rate. 

Initialization  flag 
= 0,  do  not  average  acceleration, 
= I,  use  average  acceleration. 

Thrust  acceleration  magnitude. 


C^PY,  l|5CLST,  VECMAG 
G0DSEP,  SETEVN 

C0NST,  DIMENS,  LjSGIC,  PR0PR,  TRAJI,  TRAJ2,  WJSJRK 
None. 


T 


SUMMARY 


I 


-C 


MEAS^l 


ontrol  for  measurement  processing. 


Argument/ 

Goimnon 


Definition 


Location  in  blank  common  of 
gain  matrix. 

Location  in  blank  common  of 
observation  matrix. 

See  0BSERV,  3,3.26. 

Gain  matrix  flag. 

= 1,  Kalman-Schmidt  (KS) 

- 2,  sequential  weighted 
least  squares  (WLS) , 

= 3,  user-supplied . 

= 4,  read  from  GAIN  file 

See  0BSERV,  3,3.26. 

Length  of  augmented  state  vectcr. 

Length  of  measurement  vector. 

Location  in  blank  common  of 
knowledge  covariance  after 
measurement. 


Logic  flag 

-T,  full  print  for  current 
measurement 

=F,  do  not  give  full  print 
for  current  measurement. 


Location  in  blank  common  of 
knowledge  covariance  before 
measurement. 

Location  in  blank  eonuikon  of 
WLS  reference  covariance. 

Logical  flag 

“T,  summary  print  for  all 
measurements, 

“F,  no  summary  print. 


MEAS-2 


Local  Variables;  None 

Subroutines  Called:  FILTR,  GAINF,  GAINUS.  MEASPR,  MN0ISE,  0BSERV, 

PCNTRL 

Calling  Subroutines;  G0DSEP 

Cocnmon  Blocks-  W0RK,  (BLANK),  DIMENS,  LABEL,  L0CATE,  L0GIC, 

MEASR,  MEASI 
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MEASPR«1 


3.3.22  Subroutine;  MSASPR (TYPE) 

Purpose;  To  control  all  measurement  print 


Input/Output; 

Input/ 

Argument/ 

Variable 

Output 

Common 

TYPE 

I 

A 

AUGIAB 

I 

C 

A2MTH2 

I 

C 

AZMDTH 

I 

c 

CHEKPR(3) 

I 

c 

DELTIM 

I 

c 

DXDKST 

I 

c 

ELEV 

I 

c 

BLEV2 

I 

c 

GAIN 

I 

c 

H 

I 

c 

ipatyp 

I 

c 

ISTAl 

I 

c 

I5TA2 

I 

c 

ISTA3 

I 

c 

L0CLAB 

I 

c 

Definition 


Print  type 

=6HBEFGEE,  before  me^asurement 
print 

=5HAFTER,  |after  measurement 
print 

Array  of  augmented  paremeter 
Hollerith  labels. 

S/G  azimuth  angle  from  station 
ISTA2. 

S/G  azimuth  angle  from  station 
ISTAl. 

Print  covariance  before  and 
after  measurement  (if  TRUE). 

If  >0j  print  transition  matrices, 

Keplerian  to  cartesian  trans- 
formation for  ephemeris  elements, 

S/C  elevation  angle  frrati  station 
ISTAl 

S/C  elevation  angle  from  station 
ISTA2 

I acation  in  blank  common  of 
gain  matrix. 

Location  in  blank  common  of 
observation  matrix. 

General  data  type  flag  (See 
0BSERV,  (Section  3.3.26), 

1 

fSee  0BSERV,  Section  3.3.26, 

Array  locating  state  vector 
partitions  in  AHGLAB. 


tn 


MEASPR-2 


Variable 

T25SEW 

HESIAB 

HATJG 

NDBI 

KEEHEL 

NR 

NS0LVE 

P 

PHI 

PIAB 

PL0C&L 

PRINT  . 

PTEMP 

R 


Input/  Argument/ 

Output  Common 

I G 


I ‘G 

I C 


I 


G 


I 


C 


I 


c 


I c 


I c 


I c 

I c 

I G 


I 


C 


X C 


I C 


C 


Definition 


Measurement  code  for  current 
data  type, 

t 

Array  of  measurement  Hollerith 
labels , 

Length  of  augmented  state  vector 

Array  of  lengths  of  individual 
state  vector  partitions. 

Niimber  of  ephemeris  elements 
augmented  to  state. 

Length  of  current  measurement 
vector. 

Total  number  of  variables  and 
parameters  being  estimated  by 
filter. 

Location  in  blank  common  of 
knowledge  covariance  after 
measurement* 

Location  in  blank  common  of 
transition  matrix. 

Array  of  knowledge  covariance 
sub-block  Hollerith  labels. 

Location  in  blank  common  of 
covariance- sized  working 
storage. 

Print  control  flag 
=Tj  full  print 
=E,  not  full  print 

Location  in  blank  common  of 
knowledge  covariance  before 
measurement. 

Before  measurement,  measure- 
ment white  noise  matrix;  . 
after  measurement,  measure- 
ment residual  matrix. 

S/C  geocentric  equatorial 
declination. 


SCDEG 


I 
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MEASPR-3 


Variable 

Input/ 

Output’ 

Argument/ 

Common 

Definition  • 

SCGL0N 

I 

C 

S/G  geocentric  longitude 

SQ>fi^SS 

I 

C 

S/G  mass 

SUMARY 

I 

c 

Print  control  flag 
=T,  summary  print 
=F,  no  summary  print 

TCURR 

I 

G 

Current  trajectory  time 

msT 

I 

C 

Previous  tra j ectory  time 

VECLAB 

I 

C 

Array  of  state  vector 
partition  Hollerith  labels. 

Variables: 

Variable 

Definition 

AZ 

"Azimuth" 

Hollerith  label 

BLANK 

Hollerith 

"blank" 

DEC 

mi 

'ESTk 

ElEEER. 


I0N 


"Declination*'  Hollerith  label 
"Elevation"  Hollerith  label 
"From  Station"  Hollerith  label 
Flag  on  SUl'I&Ry  print  file 

If  full  print  is  made  for  current  data  type 
FULPR  = 5HERIHT;  otherwise  FULPR  = Hollerith 
blank. 

Array  of  Hollerith  numbers 
"Longitude"  Hollerith  label 


Subroutines  Called;  I-IPAK,  SQRT,  J0BTLS,  PRIHTT,  STMPR,  C0RREL,  RELC0Y, 

G0PY,  C0PYT,  I-lAT0ua:,  PEPART 

Gaining  Subroutines:  ilEAS 

Coimnon  Blocks;  H0RK,  (BLANK)  , DIMENS,  KEPC0N,  LABEL,  L0CAIE,  L0GIC, 

MEASI,  MEASR,  SCHEDI,  SCHEDR,  IRAJl,  TEAJ2 


MEASPR-4 


i 


I Before  measuretnent,  print  know- 
/ledge  uncertainties,  observationJ 
Matrix,  measurement  white  noise.  / 
Ikltev  measurement,  print  measure# 
.ent  residual  and  going  matrices  / 
and  knowledge  uncertainties  / 


i 

I 

! 

1 

i. 

{ 

I 

! 

I 

i 

i 

i ■ 

I 

f 

t 

u 

i 

II 

li 

I-. 

r 

.0  V 


RETURN 
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MK0ISE-1 


3.3,23  Subroutine ; MN0ISE 

To  define  the  measurement  white  noise  matrix. 
Required  elements  from  the  measurement  variance 


Purpose! 

Method; 


array,  VARtiES,  are  loaded  into  the  measurement 


Input/Output! 

Variable 


noise  matrix,  R. 


Input/  Argument/ 

Output  Common 


Definition 


IDATYP  I G 


ISTA3  I C 


NR  I C 

R 0 C 

VASME3  I G 

Local  Variables;  None 

Subroutines  Called;  None 

Calling  Subroutines;  MEAS 


Basic  data  type 

= 1,  doppler 
= 2 , range 

= 3,  azimuth-elevation 
= 4,  star-planet  angle 
" 5,  apparent  planet 
diameter, 

= 6,  right  ascension- 
declination. 

Data  sub-type  for  range 
and  doppler, 

= 0,  2-way 

- 1,  3-way 

= 2,  simultaneous  2-way/ 

3 -way 

- 3,  differenced  2-way/ 

3-way 

Dimension  of  measurement 
noise  matrix. 

Measurement  noise  matrix. 

Array  of  measurement  white 
noise  variances, 


27.6 


MSCHED-1 


3,3.24  Subroutine:  MSCHED 

Purpose;  To  set  up  measurement  and  propagation  event 

information  for  use  by  the  scheduling  routine 
SCHED  (Section  3.3.36). 

Remarks : If  the  current  error  analysis  reads  gain  matrices 

from  the  gain  file  (generalized  covariance  run) 
all  scheduling  and  measurement  print  control 
information  will  also  be  read  from  the  gain 
file  and  any  scheduling  cards  in  input  will  be 
ignored,  MSCHED  automatically  writes  this 
information  on  the  gain  file  if  gain  file 
creation  has  been  specified  in  namelist  ^G0DSEP, 


Each  card  read  is  assumed  to  contain  four  vari- 
ables - START,  ST0P,  BELT,  MESC0D  (for  input 
format  see  G0DSEP  input.  Section  2.3),  If  the 
interval  (START,  ST0P)  is  not  completely  con- 
tained in  the  interval  (TCURR,  TFINAL),  the 
values  of  START  and/or  ST0P  will  be  adjusted 
so  that  only  those  events  within  the  (TGURR, 
TFINAL)  interval  will  be  scheduled.  Measure- 
ment events  are  denoted  by  1^3000  equal  to 
the  number  of  the  data  type,  and  propagation 
events  by  MESC0D  equal  to  zero.  An  additional 


^®®ceding  page  BIAIK  Kor  jilmed 


MSCHED-2 


option  is  also  available  to  schedule  measurements 
in  any  sub-interval  of  (TCURR, -TFIML) , TJhen 
any  input  card  contains  a value  for  DELT  less 
than  or  equal  to  zero,  all  succeeding  event  cards 
are  scheduled  in  the  (START,  ST0P)  interval 
defined  by.  that  card  until  a net7  card  with  BELT 
less  than  or  equal  to  zero  is  encountered. 

Input /Out put: 

Input/  Argument/ 

Variable Output Common Definition 


IGAIK 

I 

G 

Integer  flag  controlling 
filtering  algoritlim 

IGAIN  - 4 means  read  gain 
from  gain  file. 

GAINCR 

I 

G 

Logical  flag  controlling 
gain  file  creation. 

= .TRUE.,  create  gain  file. 
— .false,,  do  not  create 
gain  file 

MPFREQ 

I/O 

C 

Array  of  measurement  print 
control  flags. 

MC0DE 

0 

C 

Array  of  measurement  and 
propagation  event  codes. 

NSGHED 

I/O 

C 

Input  as  number  of  schedul- 
ing cards  to  be  read. 

Output  as  number  of  entries 
in  SCHEDM  MC0DE  arrays  to  be 
operated  on  for  scheduling 
current  run. 

SCHEDM 

0 

C 

Array  defining  scheduling 
of  events  found  in  MC0DE, 
Each  MC0DE  (1)  will  be 
scheduled  starting  at 
SCHEDM  (1,  I),  stopping  at 
SCHEDM  (2,  I),  in  increments 
of  SCHEDM  (3,  I). 
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MSCHED-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TCURR 

I 

C 

Trajectory  start  time, 
lower  bound  for  measurement 
scheduling. 

TFINAL 

I 

C 

Trajectory  stop  time,  upper 
bound  for  measurement  sched- 
uling. 

Local  Variables; 

Variable 

Definition 

BEGMES 

Beginning 

interval, 

of  allowable  event  scheduling, 
initially  set  to  TCURN, 

BELT 

Scheduled 
ments . 

time  interval  between  measure- 

ENDMES 

End  of  allowable  event  scheduling  inter- 
val, initially  set  to  TFINAL. 

IBIAS 

Running  counter  of  number  of  schedule 
cards  read  but  not  loaded  into  SCHEDM 
and  MC0DE  arrays. 

MESC0D 

Measurement  code  read  from  input  card. 

START  Beginning  of  scheduling  interval  for 

measurement  type  MESC0D, 

ST0P  End  of  scheduling  interval  for  measure- 

ment type  MESG0D. 


Subroutines  Called:  None 

Calling  Subroutines:  0UTPTG 

Commor.  Blocks:  C0NST,  SCHEDI,  SCHEDR,  IIEASI,  L0GIC,  W0RK 
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MSCHED 


IGAIN  = 4 


"^Read  NSCHED, 
SCHEDM, 

. MC0DE  from 
, GAIN  File  . 


NSCHED  = 0 


Ini tialiae 
• BEGMES  = TCURR 
ENO^ES  = TFINAL 


= 1,  NSCHED 


Read 

START,  ST0P, 
BELT,  MESC0D 


DELT:0 


Adjust  START,  ST0P 
To  Include  Only  Times 
Between  BEGltES  and 
ENDMES 


Reset: 

BEGMES  = Max 
(START,  TCURR) 
ENDMES  = Min 
(ST0P,  TFINAL) 


Is  Anything 
Left  In 
(start,  ST0P) 
Interval? 


Increment 

IBIAS 


Load  START, 
ST0P,  DELT, 
MESC0D  Into 
SGKEDM,  MC0OE 
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3,3.25  Subr  Quinine: 

Purpose: 

Remarks ; 


Input /Output: 

I.ocal  Variables; 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks; 

Logic  Flow: 


NHLlST-1 

NMLISX 

Read  $G0DSEP  namelist 

All  knowledge  and  control  covariance  matrix  partitions 
are  provided  as  arguments  to  KMLIST  in  order  to 
minimize  the  number  of  modifications  necessary  in 
the  event  maximum  dimensions  of  any  sub -block  are 
changed.  Dimensions  of  these  arrays  in  NMLIST  must 
correspond  to  those  specified  for  M&XDIM  array  in 
subroutine  DEFALT  (Sec.  3.3.8) 

If  GAIN  file  is  being  created,  NWLIST  writes  all 
variables  in  namelist  $G0DSEP  to  GAIN  file  (TAPE  4) 
in  binary  format.  Similarly,  if  GAIN  file  is  being 
read,  NMLIST  reads  default  values  for  namelist 
$G0DSEP  in  binary  format  from  GAIN  file  (TAPE  4) 
and  then  reads  normal  namelist  $G0DSEP  from  input 
to  modify  defaulted  values  as  desired. 

See  G0DSEP  Input,  Volume  II,  User’s  llanual  Sec.  2.3 
None 

J0BTLE,  B0MB 
INPUTG 

DATAGI,  DATAGR,  DUIENS,  GUIDE,  LABEL,  L0GIC,  MEASI, 
IJEASR,  PR0PI,  PR0PR,  SCHEDI,  SCHEDR,  TRAJ2 


None 
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3.3.26  Subroutine!  0BSERV  (HMA.T) 


0BSERV-1 


Purpose; 

Method! 

Input /Output; 

Variable 


To  compute  observation  matrix  •: 

See  Volume  I,  Analytical  tianual.  Sec.  3 


Input/  Argument/ 

Output Common  Definition 


HMAT  0 

AZ&rCH2  0 

AZMUTH  0 

BXDKST  I 

ECEq  I 

EIEV  0 

ELEV2  - 0 


A Observation  matrix 

C Azimuth  angle  from  station 

ISTA2 

G Azimuth  angle  from  station 

ISTAl 

G Kepletian  to  cartesian  trans- 

formation for  ephemeris  elements 

C • Rotation  matrix  from  equatorial 
to  ecliptic  coordinates. 

G Elevation  angle  from  station 

ISTAl 

G Elevation  angle  from  station 

ISTA2 


GHZER0  I 
lAlJGST  I 

mZEL  I 
IBDIAM  I 
IBSTAR  ’ I 
IB2WAY  I 


C Greenwich  hour  angle  at  launch 

C Location  in  lAUG  array  of 

station  location  flags, 

C Location  in  lATJG  -array  of 

azimuth- elevation  angle  meas- 
urement bias  flags. 

C Location  in  lAUG  array  of 

apparent  planet  diameter 
■measurement  bias  flag, 

G Location  in  lAUG  array  of  star- 

planet  angle  measurement  bias 
flags . 

C Location  in  lAUG  array  of  2-way 

range  and  range-rate  measure- 
■raent  bias  flags. 

C Location  in  lATJG  array  of  3-way 

range  and  range-rate  measirre- 
ment  bias  flass. 


IBSWAY 


I 
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^BSERV-2 


Input/  Argument/ 

Variable Output  Common 


Definition. 


I?ATYP  0 C 


lEPlffiK  I . C 


ISTAl  0 C 


ISTA2  0 C 


ISXA3  0 C 


LIST  I C 


General  data  type  decoded 
from  MESEVN. 

— 1,  range" rate  measurement 
-2f  range  measurement 
=3,  azimuth-elevation  anble 
measurement 
on-board  optics,  star- 
planet  angle 

=5,  on-board  optics,  apparent 
planet  diameter 

Ephemeris  body  coordinate 
system  flag 

=0,  non- stationary  cartesian 
=1,  stationary  cartesian 
-2,  stationary  Keplerian 

Eor  IDAXYP  = 1,2,3  ISTAl  = 
station  number  of  first  station. 
For  IDATYP=4  Number  of  first 
star.  For  IDATYP=5  ignored. 

For  IDATXP=1,2,3  ISTA2  = station 
number  of  second  station  (if 
data  type  requires) 

For  mATYP=4  number  of  second  star. 
For  IDATyp=5  ignored. 

Ignored  if  IDATYF=3,4,5 
If  IDAT-5fP=l,2: 

=0,  2- way  data  from  station  ISTAl 
=ljs  3-way  data  from  stations 
ISTAl  and  IS1A2 

=2,  simultaneous  2-way/3-way  data 
from  station  ISTAl  and  ISTA2 
=3,  differenced  2-way/ 3-way  data 
from  stations  ISTAl  and  ISTA2. 

List  of  augmented  parameter 
numbers. 


LISTPa  I 

mXSTA  I 


G List  of  ephemeris  element 

parameter  numbers, 

C Maximum  station  number  for  which 

station  location  errors  and  2-way 
or  3-way  biases  are  allowed. 


MESEVN 


I 


C 


Measurement  code  of  current 
data  type. 
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0BSERV-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

MUG 

I 

C 

HS 

I 

G 

HB0D 

I 

C 

HEP 

X 

G 

HEPHEL 

I 

C 

HR 

0 

G 

0MEGAG 

I 

C 

PRADIS 

X 

C 

RAD 

I 

C 

RANGE 

0 

C 

SAHGE2 

0 

C 

SGDEC 

0 

C 

SCGL0H 

0 

C 

SIAL0C 

I 

C 

SMRDC 

I 

c 

STPAKG 

0 

c 

TCURR 

I 

c 

m- 

X 

c 

DP 

X 

G 

Definition 


Length  of  augmented  state 
vector. 

Array  of  bodies  used  in  traj- 
ectory 5.ntegration. 

Humber  of  bodies  used  in 
trajectory  integration. 

Humber  of  ephemeris  body. 

Humber  of  ephemeris  elements 
augmented  to  state. 

Length  of  current  measurement 
vector . 

Earth  sidereal  rotation  rate. 

Array  of  planetary  radii 

Conversion  constant,  degrees/ 
radian 

Range  from  s cation  ISLAl  to 
S/C  or  range  from  S/C  to 
ephemeris  body. 

Range  from  station  ISTA2  to  S/C 

S/G  geocentric  equatorial 
declination. 

S/C  geocentric  longitude. 

Array  of  station  location 
cylindrical  coordinates. 

Array  of  star  direction  cosines. 

Array  of  star  planet  angles. 

Current  trajectory  time. 

Conversion  constant,  seconds/day. 

Position  array  of  bodies  used 
in  trajectory  integration. 
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0BSERV-4 


■ Variable 
UREL 

VP 

VREL 

Local  Variables: 

Variable 

CAGE 

CALPHA 

GBETTA 

CGAMMA 

MBDX 

MBDXS 

DELR 

DELRH0 

DIFF23 

D0PLER 

gecsi:a 

GECST2 

GECV 


Input/  Argument/ 

Output Common Definition 


I 


I 

I. 


C Relative  position  array  of 

S/C  to  bodies  for  trajectory 
integration. 

G Velocity  array  of  bodies  used 

in  trajectory  integration. 

G Relative  velocity  array  of  S/C 

to  bodies  for  trajectory 
integration. 


For  all  variables  and  equations,  see  Volume  1, 
Analytical  1-Ianual,  Section  6. 


Definition 


COS  (asimuth)  x COS  (elevation) 

COS  (azimuth) 

COS  (elevation) 

COS  (star-planet  angle) 

Vector  position  difference  between 
stations  ISTAl  and  ISTA2. 

A? 

Logical  flag 

=T,  differenced  2-v?ay/3-way  data 
=Fj  not  differenced  2-way/3-way  data 

Logical  flag 

=T,  range- rate  measurement 
=F,  not  range- rate  measurement 

Geocentric  ecliptic  coordinates  of  ISTAl 

Geocentric  ecliptic  coordinates  of  ISTA2 

S/C  geocentric  ecliptic  coordinates 

Geocentric  equatorial  coordinates  of  ISTAl 


GEQSTA 
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0BSERV--5 


Yariabls 

GEQV 

HECE 

HEGP 

HECV 

HV 

HV2 

EX 

HX2 

ISTA. 

NTEMP 

PAEKEP 

EECCYL 

PEQCYL 

EHO 

EE0D0T 


Definiiiion 


S/G  Geocentric  equatorial  coordinates 

Heliocentric  ecliptic  coordinates 
of  Earth; 

Heliocentric  ecliptic  coordinates  of 
ephemeris  body. 

S/C  Heliocentric  ecliptic  coordinates. 

Observation  partials  for  ISTAl  station 
location  parameters. 

Observation  partials  for  ISTA2  station 
location  parameters. 

2-way  observation  partials  for  S/C 
state  from  ISTAl. 

2-way  observation  partials  for  S/C  . 
state  from  ISTA2, 

-Number  of  station  or  star  for  which 
partials  are  currently  being  computed. 

When  multi-station  data  is  used,  inf or 
nation  for  ISTA2  is  computed  first  in 
locations  HX,HV,RH0HAT,  and  GECSTA, 
NTENP  is  number  of  words  which  must  te 
copied  from  HX,  etc.  into  HX2,  etc. 

Observation  sensitivities  to  ephemeris 
body  elements. 

Partial  of  instantaneous  station 
geocentric  ecliptic  to  cylindrical 
coordinates. 

Partial  of  instantaneous  station 
geocentric  equatorial  to  cylindrical 
coordinates , 

Range  vector  from  station  ISTA  to  S/C 
or  from  S/C  to  ephemeris  body. 

Relative  velocity  vector  from  station 
ISTA  to  S/C. 
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0BSERV-6 


Yariabla 

EH0HAT 

RH0HT2 

SALPH& 

SBETA 

SGAMMA. 

SGHC0S 

SIML23 

SINE 

TATB 

THRWAY 

TW0WAY 

WHAT 

XSHAT 

Subroutines  Called; 

Calling  Subroutines; 
Cotrnnon  Blocks; 


Befinition 


Unit  vector  in  RH0  direction  from  ISTAl 
Unit  vector  in  RH0  direction  from  ISTA2 
SIN  a 
SIN  $ 

SIN  y 

Signum  (COS  CO 
Logical  flag 

“T,  simultaneous  2-way/3-way  data  . 

=Ej  not  simultaneous  2--way/3-way  data 

Sin  (apparent  planet  diameter  angle) 

tan  CT  tan  j3 

• Logical  flag 

=T,  3-way  data  only 

not  3-way  data  only 

Logical  flag 

=T,  2-way  data  only 

=E,  not  2-way  data  only 

A 

w 

A. 

X 

s 

ZEB.0M,  CYEQEC,  VECMAG,  UNITY,  UD0IV,  ASIK,  L0GLST, 
PARSTA,  MMAB,  NEGMAT,  MMATB , . AXAN2 , C0PY,  ADD, 
HUNPAK,  SUB,  UXV,  SQRT,  NMABT,  AC0S,  L0DC0L 

MEAS 

W0RK,  (BLANK),  C0NST,  DINENS,  EPHEM,  KEPC0N, 

MEASI,  tlEASR,  SCHEDI,  SCHEDR,  TRAJl,  TEAJ2 


Zero  Work  array 
Sst  state  vectors  for 
S/C,  earth,  ephem  body 
Decode  rlESEVI'I 


range 


IBIAS  = 3 
Doppler  “=  •TRUE' 


I.SifiS  =■  0 
Doppler  = -FALSE* 


- Set  data  type 
logicals 

Set  station  number  (ISTA) 
to  second  station  if 
multi- station  data  type 
MSS  2 = -FALSE* 


C'JSQE 


Compute  station 
ecliptic 
coordinates 


Compute  tracking  geometry 
parameter^'  relative  to 
station  ISTA,  and 
HX  = ay/c>(Xj^)  from 

eqn,  6-2.2 
or  eqn,  6-2.4 


0BSERV-8 


Are  station  location 
coordinates  for  ISTA 
augmented  to  S/C  states 


PARSTA 


Compute  partials 
of  station  state 
to  cylindrical 
coordina tes 


PASS  2 


Compute  S/C 
geocentric  equa- 
torial declination 
and  longitude 


TRUE 


■FALSE- 


PASS  2 = ‘TRUE- 

Copy  all  itifomnation 
computed  above  for  second 
station  to  HS2,  etc, 

Set.ISTA  to  first 
station  number 
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^faSERV-9 


HR  - 4 

ISTA  = second 
station  number 
LDRC:^  = 3 
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ffBSERV-11 


4000 


Compute  MR, 


range  vector, 
magnitude  and 
unit  vector 


Yes 


"O 


10 


0BSERV-12 


ISTA.  = first 
star  number 
NSTAR  = 0 


^4100 


Increment  KSTAR 
Set  ISTA 
according  to 
NSTAR 


Compute  angle,  sensitivity 
Load  HMAT 

Load  bias  sensitivity 
if  bias  augmented 


f KSTAR  < NR 

(more  observation  elements 
, to  compute?) 


#4300  |r 

r ^ — 

f KEPHEL  > 0 

(Any  ephemeris 
k elements  augmented? ) 


Load  ephemeris  sensi- 
tivities, transforming 
if  Kepler ian 
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0UTPTG-1 


3.3,27  Subroutine:  0UTPTG 

Purpose;  Print  out  for  user  information  of  options 

selected  and  initial  values.  Conversion  of 


Input /Output; 

Variable 

BIG 

C0NRD 


G0RL0N 

DOPGKT 

DYK0I3 


EPSIG 

EPTAU 

EPVAR 

aAlKGR 


input  to  internal  units  as  necessary. 


Input/  Argument/ 

Output Common Definition 


I C 

I C 


I C 

I c 

I c 


I c 


I c 

I c 

I c 


Large  constant^  1,E20* 

Logical  flag, 

= Tj  control  uncertainties 
read  in, 

= Fj  control  uncertainties 
not  read  in. 

Station  longitude  correlation 
coefficient* 

Average  number  of  range-rate 
measurements  taken  per  day 
during  tracking  arc. 

Logical  flag. 

= T,  compute  effective  pro- 
cess noise. 

= F,  do  not  compute  effective 
process  noise. 

Array  of  process  noise  stand- 
ard deviations. 

Array  of  process  noise  cor- 
relation times. 

Array  of  process  noise  vari- 
ances . 

Logical  flag, 

= T,  create  GAIK  file* 

= F,  do  not  create  GAIN  file. 


0UTPT6-2 


Variable 


Input/  Argument/ 

Output  Common 


Definition 


Logical  flag. 


GENCOV  I C 


GTAUl  ■ 0 C 


GIAU2  0 C 


lAUGST  I C 

IGAIN  I C 

ISTMF  I C 

LIST  I C 

LPD0T  0 C 

MC0UNT  0 C 

MPPBEQ  I/O  G 

KAUG  I C 

NGNTE  0 C 


= T,  generalized  covariance 
analysis  on  current 
run, 

= F,  no  generalized  covari- 
. ance  analysis  on  current 
run. 

Array  of  negative  inverse 
primary  process  noise  cor- 
relation times  for  TRAJ 
(Section  'J  ) Opera- 
tive only  if  PD0T  = ,TRUE. 

Array  of  negative  inverse 
secondary  process  noise  cor- 
relation times  for  TEAJ 
(Section  . S)  Opera- 
tive only  if  PD0T  = .TRUE. 

Location  in  lAUG  array  of 
station  location  parameters. 

Gain  matrix  algorithm  flag, 

STM  file  usage  flag. 

Array  of  augmented  parameter 
numbers. 

Array  of  dynamic  parameters 
to  TRAJ  (Section  n 1“ 
Operative  only  if  PD0T  = 
.TRUE, 

Measurement  counter. 

Measurement  print  frequency 
control  array. 

Length  of  augmented  state 
vector. 

Eigenvector  event  counter. 


297 


0UTPTG-3 


Variable 

Input/ , 
Output 

Argument/ 

Common 

- Definition 

KENTG 

0 

C 

Guidance  event  counter. 

KCNTP  ■ 

0 

C 

Prediction  event  counter. 

HCHTT 

0 

C 

Thrust  event  counter. 

HEIGEK 

1/0 

C 

Total  number  of  eigenvector 
events  to  be  scheduled. 

HGUI0 

1/0 

C 

Total  number  of  guidance 
events  to  be  scheduled. 

}?PRED 

1/0 

C 

Total  number  of  prediction 
events  to  be  scheduled. 

MTHRST 

1/0 

C 

Total  number  of  thrust 
events  to  be  scheduled. 

WST 

I 

C 

Number  of  tracking  stations 
defined. 

P 

I 

C 

Location  in  blank  common  of 
knowledge  covariance. 

PDOT 

1 

C 

Logical  flag. 

* 1'* 

! 

i 

= T,  covariance  propagation 
by  integration  of  vari- 
ational equations. 

= Pj  covariance  propagation 
by  state  transition 
matrices. 

PG 

I 

c 

Location  in  blank  common  of 
control  covariance. 

PGLAB 

X 

c 

Array  of  control  covariance 
sub-block  Hollerith  labels. 

PIAB 

I 

G 

Array  of  knowledge  covariance 
sub-block  to  Hollerith  labels 

PRKC0V 

I 

C 

Logical  array  controlling 
covariance  sub-blocks  printed 

PR$iPG 

0 

C 

Logical  flag. 
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0UTPTG-4 


Input:/ 

Variable Output 


Argument/ 

Gomraon 


Definition 


= T,  propagate  control 

covariance  simultane- 
ously V7ith  knowledge, 

= F,  do  not  propagate  con- 
trol covariance  simul- 


taneously  with  knowledge 

QN0ISE 

0 

C 

Array  of  process  noise  var- 
iances provided  to  TRAJ 
(Section  i £ 'i  when 

PD0T  ^ .TRUE. 

RAD 

I 

C 

Conversion  constant,  de- 
grees/radian. 

SCHFTL 

I 

c 

Logical  flag, 

- T,  mesh  failure  on  reading 
STM  file  is  fatal. 

~ F,  mesh  failure  on  reading 
STM  file  is  not  fatal. 

GIGL0N 

I 

G 

■Standard  deviation  in  sta- 
tion longitude. 

SIGMES 

I 

C 

Array  of  measurement  white 
noise  standard  deviations. 

SIGRS 

I 

C 

Standard  deviation  in  sta- 
tion spin  radius. 

SIGZ 

I 

C 

Standard  deviation  in  sta- 
tion 2-height, 

S'IAL0C 

I 

C 

Array  of  cracking  station 
cylindrical  coordinates. 

TCURR 

I 

C 

Current  (and  initial)  tra- 
jectory time. 

TDUR 

I 

C 

Trajectory  final  time 
(seconds)  for  TRAJ  (Section 

TEIGEN 

I 

G 

Array  of  eigenvector  event 
times. 

0UTPTG-5 


Variable 

Input/ 

Output 

Argument/ 

Comniou 

Definition 

tfikal 

I 

G 

Error  analysis  final  time. 

TG 

I 

G 

Epoch  for  input  control 
uncertainties  if  C0KRD  = 
.TRUE, 

TGUtD 

I 

C 

Array  of  guidance  event 
times . 

TM 

I 

C 

Conversion  constant, 
seconds /day. 

T0LBAK 

I 

C 

Backtrard  tolerance  on  STM 
file  mesh. 

T0LF0R 

I 

G 

Forward  tolerance  on  STM 
file  mesh. 

TPRED 

I 

C 

Array  of  prediction  event 
times . 

TTHRST 

I 

C 

Array  of  thrust  event  time 

VARMES 

0 

C 

Array  of  measurement  white 
noise  variances. 

Variables : 

Nc*’. , 

• 

Subroutines  Called:  tiSCHEI),  ESCHED,  SCHED^  B55MB,  ATAN,  2ER0M,  C^iitREL, 

SDVAR,  C0PY 

Calling  Subr ou tines:  DATAG 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DATGI,  BAIGR,  DI^EE1IS,  LABEL, 

L0CATE,  L0GIC,  mSI,  MEASR,  PR0PI,  PR0PR,  SCHEDI, 
SGREDR,  TItlE,  TRAJl,  TRAJ2 


BUTPTG-6 


PiUID  » 0 .0R-  TG<TCURR 
No  guidance  eventB  or  in- 
put controi  epoch  no 
later  chan  input  knov^ledg 


Schedule  propagation 
event  at  input  control 
epoch  to  force  event 
at  time  TG. 


MSCHED,  ESCHED 


Schedule  all 
measurements 
and  events 


Check  input  for 
inconsistencies , 
compute  meas. 
white  noise 


If  PDOT,  scale  appropriate 
covariance  terms  by  number 
of  thrusters 


^rint  a priori 
fknowledge  and 
control 
uncertainties 


ElETURH 
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PARKEP-1 


3.3,28  Subrout Inei  PARKEP  (X,  V,  GMU,  DXDK) 


Purpose: 

To  compute  Kepler ian  to 

cartesian  transformation. 

Method: 

Central  differencing. 

• 

Input /Output: 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

X 

I 

A 

Cartesian  position  of  body. 

V 

I 

A 

Cartesian  velocity  of  body. 

GMU 

• 

I 

A 

Gravitational  constant  of 
central  body. 

DXDK 

0 

A 

Output  Keplerian  to  Cartesian 
transformation. 

Local  Variables: 

* 

Variable 

Definition 

XKEP 

Body  Keplerian  elements. 

XMINUS 

Body  cartesian  state  using  negative 
perturbation. 

XPLDS 

■ 

Body  cartesian  state  using  positive 
perturbation. 

XPERT 

Array  of  cartesian  perturbation  levels. 

Subroutines  Called 

: C0NIC» 

CARTES 

Gallins  Subroutines:  SETGUI, 

STMRDR,  C0VP 

Cornmorx  Blocks;  W0RK 

Losxc  Flow; 


None 
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mSTA-1 


3.3.29  Subroutine: 

PARSTA 

(GEQSTA,  RSPIN, 

ECEQ,  PECCYL) 

Purpose: 

lo  compute  the  partial 

derivative  of  station 

instantaneous  geocentric  ecliptic  cartesien 

state  wrt  station  equatorial  cylindrical  coor- 

dina tes 

« 

Method: 

See  Volume  1,  Analytical  Manual,  Section  6. 

Input /Output; 

Variable 

Input/ 
Outpu  t 

Argument/ 

Common 

Befini cion 

GEQSTA 

I 

A 

Instantaneous  geocentric 
equatorial  cartesian  state 
of  station. 

RSPIN 

I 

A 

Station  spin  radius. 

ECEQ 

I 

A 

Rotation  matrix  from  equato- 
rial to  ecliptic  cartesian 
sys  tern . 

PECCYL 

0 

A 

Partial  derivative  of  instan- 
taneous ecliptic  state  of 
state  wrt  cylindrical  coor- 
dinates. 

Local  Variables: 

Variable 

Definition 

C^SEPSj  SINEPS 

C0SPHI,  SINPHI 

GP0MEG,  SP0^iEG 

Subroutines  Called:  None 

Calling  Subroutines;  0BSERV 
Common  Blocks:  None 


COS  and  SIN  of  Earth  obliquity  to  eclip- 
tic. 

COS  and  SIN  of  instantaneous  station 
equatorial  longitude. 

COS  and  SIN  of  Earth  inertial  rotation 
rate. 


Logic  Flow; 


None 
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PCNTRL-1 


3,3.30  Logical  Function; 


PCNTEL  (ITYPE,  ISUB) 


Purpose  I 
Method : 


Remarks ; 


Input /Output; 

Variable 

ITYPE 


To  control  measurement  print. 

Each  general  data  type  (e.g.,  2-way  range, 
simultaneous  2-way/3-way  doppler,  azimuth- 
elevation  angles)  is  assigned  a print  fre- 
quency (MPFREQ)  and  a counter  (MPCNTR) « 

A test  is  made  on  the  counter  for  the 
input  data  type  defined  by  ITYPE,  ISUB. 

If  the  MPCNTR,  modulo  its  MPFREQ,  is  zero, 
the  measurement  is  printed. 

Two  additional  features  are  provided.  The 
first  processed  measurement  of  any  data 
type  whose  corresponding  MPFREQ  element 
is  non-zero  is  printed.  Also,  the  final 
measurement,  independent  of  the  data  type, 
is  printed. 


Input/ 

Output 

Argument/ 

Common 

Definition 

I I 

A 

Basic  data  type,  corresponds 

to  IDATYP  in  connnon  block 

MEASl. 

= 1,  doppler 
= 2,  range 

=3,  azimuth-elevation 
angle 

“ 4,  star-planet  angle 
“5,  apparent  planet  diam- 
eter, 

ISUB  I A Sub-data  type  for  doppler 

and  range,  ignored  if 
ITYPE  > 2. 


pciim-2 


Input/  Argument/ 

Variable Output Gotnmon 


Definition 


PGHTRL  0 F* 


MPCNTR  I/O  C 

MPFREQ  I C 

TFIKAL  I G 

IMNEXT  ■ I C 


= 0,  2-way 
= 1,  3-way 

= 2j  simultaneous  2-way/ 

3 -way 

= 3j  differenced  2-way/ 

3 -way 

Logical  print  control  vari- 
able, 

= .TRUE.,  if  measurement  to 
be  printed 

= .FALSE,,  if  measurement 
not  to  be  printed. 

Array  of  data  type  count- 
ers. 

Array  of  data  type  print 
frequencies. 

Trajectory  final  time. 

Time  of  next  scheduled 
measurement. 


Local  Variables; 

Variable Definition 

1C0DE  Integer  subscript  locating  data  type 

in  MPFREQ  and  MPCNTR. 

Subroutines  Called;  None 

Galling;  Subroutines:  I'lEAS 

Common  Blocks;  SCHEDR,  SCHEDI 


^Function  Value  Output 


PCHTRL-3 


Logic  Flow: 


PPAK-1 


3,3*31  Subroutine 

; PPAK  (PBL0CK,  IP0EM,  PAUG) 

Purpose; 

To  load 

input  covariances  from  either  packed 

or  unpacked  input  form 

to  block  form  (See 

AUGCKV, 

Section  3,3,1). 

Input /Output; 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

PBL0CK 

I 

A 

Array  containing  all  input 
covariance  information. 

IF0RM 

I 

A 

Flag  indicating  input  form 
of  individual  sub-blocks 
within  PBL0CK. 

• 

= 1,  sub-blocks  are  packed. 

- -1,  sub-blocks  are  not 
packed. 

paug 

0 

A 

Output  covariance  in  "block" 
form. 

L0CBLK 

I 

G 

Array  locating  covariance 
sub-blocks  in  "block"  form 
(PAUG) . 

I 

C 

Array  of  dimensions  of  covar- 
iance sub-blocks  in  PBL0CK,. 
tiAXDIM  remains  at  input 
values  if  input  sub-blocks 
are  not  packed  and  NAXDIM 
is  adjusted  to  NDIM  if  sub- 
blocks are  packed. 

NDIM 

T 

C 

Array  of  assumed  sub-block 
dimensions  on  output. 

Local  Variables: 

Variable 

Definition 

IBL0CK 


Running  counter  locating  current  covar- 
iance sub-block  within  PBL0CK, 
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Variable 

M&XSAV 

Subroutines  Called; 
Calling  Subroutine; 

it 

Common  Blocks : 


PPAK-2 


Definition  ' 


Array  saving  input  values  of  llAXDIM, 


MPAK,  SYML0,  AUGCNV 
INPUTG 

•W0RK,  DATAGI,  DIMENS 


Logic  Flow; 


None 
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PR0P-1 


3.3.32  Subroutine;  PR0P  (PIN,  PHItlAT,  NP,  ^■JLSREF,  P0UT) 

Purpose;  To  propagate  an  augmented  covariance  matrix 

* 

betoeen  time  points. 

Method;  State  transition  matrix  with  effective  process 

noise  model. 

Remarks;  PIN  and  P0UT  may  not  share  the  same  location. 

This  routine  also  propagates  the  reference 
covariance  for  sequential  weighted  least 
squares  (WLS)  filtering. 


Input /Output; 

Variable 


Input/  Argument/ 

Output Common Pefinition 


PIN  I A 

PHIMAT  I A 

NP  I A 

NLSREF  I A 


P0UT  0 A 

DYN0IS  I C 


Input  covariance  to  be 
propagated. 

Transition  matrix  over 
time  interval, 

Demension  of  input  transi- 
tion matrices. 

Logical  flag  controlling 
propagation  of  WLS  refer- 
ence covariance, 

= .TRUE,  and  IGAIN  = 2, 

WLS  reference  propagated, 
otherwise  not. 

Output  covariance. 

Logical  flag  controlling 
addition  of  effective 
process  noise. 


TRUE,,  add  Q 
FALSE,,  do  not  add  Q 


i 


J 


. t 


-- 1 t . 
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PE0P-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

IGAIN 

I 

C 

Integer  flag  controlling 
filtering  algorithm 

=2,  use  WLS 
^ 2,  do  not  use  WLS. 

NS0LVE 

I 

C 

Total  number  of  variables 
solved-for  (-6  -b  nutnbei  of 
solve-for  parameters). 

PlttS 

I 

C 

Location  in  blank  common 
of  WLS  reference  covariance 

Q 

I 

C 

Effective  dynamic  noise 
matrix. 

Local  Variables t None 

Subroutines  Called;  ZER0H,  IIUKPAK,  1‘IPAK,  SYMTRZ,  -AMABAT 

Calling  Subroutines;  C0VP,  PRED,  GUIDE 

Common  Blocks:  (BLANK),  DItlENS,  L0CATE,  L0GIC,  MEASI,  PR0PR 
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3.3.33  Subroutine! 
Entry  Points! 

Purpose ; 


Remarks : 


PRPART-1 


PRPART  (A,  MAXR0W,  NR0W,  NC0L,  LABEL) 

PRC0RR,  PUNC0R 

To  print  or  punch  the  transpose  of  any  sub- 
block  or  partition  of  a matrix  with  column 
labels  for  printing  and  a single  matrix  name 
for  punching. 

This  routine  was  designed  primarily  for  print- 
ing partitions  of  covariance  and  transition 
matrices  and  punching  covariance  partitions. 
However,  it  has  general  applications  to  any 
matrix.  PRPART  and  PRC0RR  are  functionally  . 
equivalent  - the  difference  in  output  being 
E format  by  PRPART  for  general  matrices  and 
F format  by  PRC0RR  for  easy  reading  of  corre- 
lation coefficients.  PUNC0R  punches,  and  is 
valid  for  general  matrices.  The  calling 
sequence  requires  that  the  argument  A be  the 
first  word  of  the  partition  of  interest.  For 
example,  given  a 9 x 9 state  transition  matrix, 
PHI,  which  is  theoretically  partitioned  as 


PHI  = 

^6x6 

®6x3 

• °3x6 

^3x3  - 

to  print  the  transpose  of  the 

^6k6  P 

i . • 


we  would  use 


PRPART-2 


CALL  PEPART  (PHI,  9,  6,  6^  UBELl) 
■where  lABELl  is  a 6-vector  of  Hollerith  labels 
for  the  columns  of  Similarly  to  print 

the  transpose  of  0gjj3>  we  would  use 

CAIL  PRPART  (PHI  (1,  7),  9,  6,  3,  IABEL2) 

where  PHI  (1,  7)  represents  the  first  element 

of  the  partition,  and  LAEEL2  as  a 3-vector 

of  Hollerith  labels  for  the  columns  of  0>.  If 

6x3 

PHI  is  not  explicitly  dimensioned  9 x 9 in  the 
calling  routine,  this  last  call  could  also  have 
been 


.CALL  PRPART  (PHI  (NPHI  * (7-1)  + 1), 

NPHI,  6,  3,  IABEL2) 

where  the  PHI  subscript  (HPHI  * (7-1)  + 1)  comes 
from  the  general  formula  for  locating  element 
(I,  J)  in  a matrix  dimensioned  (M,  N) ; 

L0G  = M * (J-1)  + I. 


Input/Output; 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

A 

I 

A 

First  word  of  matrix  sub- 
hlock  to  be  printed  or 
punched . 

MAXR0W 

I 

A 

tJumber  of  rows  in  complete 
matrix  from  which  partition 
is  being  taken. 

KR0W 

I 

A 

Number  of  rows  in  partition 
to  be  printed/punched,  must 
be  less  than  or  equal  to 
MAXR0W. 

PRPAB.T-3 


Input/ 

Variable  Output 


Arguaient/ 

Common 


HG0L 


lABEL 


Definition 


Number  of  columns  in  parti- 
tion to  be  printed/punched. 

For  PRPART  and  PRC0RR  an 
KC0L-vector  of  Hollerith 
labels  for  printing. 

For  PUNC0Rj  a one-word 
Hollerith  label  for  the 
matrix  to  be  punched. 


Local  Variables;  None 

Subroutines  Called;  Nona 

Calling  Subroutines;  C0RREL,  STMPR,  JiEASPR,  GUIDE 

Common  Blocks:  None 

Logic  Flow; 


None 


PRSDEV-1 


3.3.34  Subroutine t PRSDEV  (SDC0R,  MAXR0W,  NR0W,  LABEL)’ 

Entry  Points;  PUKSD 

Purpose;  To  print  (PRSDEV)  or  punch  (PUNSD)  a matrix  of 

standard  deviations  and  correlation  coefficients. 

Remarks ; The  input  matrix  (SDC0R)  may  represent  a complete 

covariance  or  any  diagonal  sub-block  thereof.  It 
is  assumed  to  have  standard  deviations  on  the 
diagonal  and  correlation  coefficients  in  the 


upper  triangle.  The  lover  triangle  is  ignored. 

For  further  remarks  on  locating  the  partition  to 
be  printed/punched,  see  Section  3.3.33j  Subroutine 
PRPART  under  Remarks. 


Input /Out put ; 


Variable 


Input/  Argument/ 

Output Common Definition 


SDC0R  I A 

11AXR0W  I A 

NR0W  I A 

LABEL  I A 


First  word  of  partition  to 
be  printed/punched. 

Total  number  of  rows  in 
matrix  from  which  partition 
is  taken. 

Number  of  rows  in  partition, 

PRSDEV  - an  NR0N"vector  of 
Hollerith  labels  correspond- 
ing to  the  variables  in  the 
partitions. 

PUNSD  - a one  ^work  Hollerith 
label  for  the  matrix  parti- 
tion. 


Local  Variables; 


None 


■— J 1 - . 1 1 i J 

■316 

PRSDEV-2 

None 

C0RREL,  GUIDE,  RELC0V 
None 
None 


f* 
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BEXJC0V-1 


3.3,35-  Subroutine;  RELC0V  (PIK,  DXDIC,  EIGEN,  PREL) 

Purpose;  To  compute  S/C  state  uncertainties  relative  to 

ephemeris  body. 

Xnput/Ou tput; 

Input/  Argument/ 

Variable Output Common  Definition 


PIN  I A 

DXDK  I A 

EIGEN  I A 


PREL  0 A 

AUGLAB  I G 

F0P  I C 

E0?  I C 

lEPHEH  I C 

LIST  I G 

LISTPH  I C 

KAUG  I G 


Augmented  covariance  matrix, 

Keplerian  to  cartesian  trans 
formation  for  ephemeris  body 

Logical  flag, 

= T,  compute  eigenvectors 
and  eigenvalues  of 
relative  covariance. 

= E,  compute  standard  devi- 
ations and  correlation 
coefficients  only. 

Relative  covariance  matrix. 

Array  of  augmented  para- 
meter Hollerith  labels. 

Final  off-diagonal  annihi- 
lation value  for  position 
eigenvalue  computation. 

Final  off  diagonal  annihi- 
lation value  for  velocity 
eigenvalue  computation. 

Ephemeris  body  coordinate 
system  flag. 

List  of  augmented  parameter 
numbers . 

List  of  ephemeris  element 
parameter  numbers. 

Length  of  augmented  state 
vector. 
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KELC0V-2 


Local  Variabl-Gs; 

Variable Definition  

C0RR  Cross  covariance  of  S/C  state  with 

ephemeris  body  cartesian  state. 

PEPH  Covariance  of  ephenieris  body  cartesian 

state* 


Subroutines  Called:  ZER0M,  L0ADRC,  L0DC0L,  MMABT,  C0PY,  SYtiTRZ, 

VARSD,  PRSDEV,  MPAK,  ADD,  SUB,  SUBT,  EIGPRN 

Calling  Subroutines;  MEASPR,  GUIDE,  SETEVN 

Common  Blocks:  W0RK,,  (BLANK),  C0NST,  DIWENS,  KEPC0N,  LABEL, 

L0CATE,  MEASI 


> 


SCHED-1 


3.3.36  Subroutine 
Purpose: 

Remarks; 


In  put /Output: 

Variable 

TIAST 

TEVENT 

■ BELT 

JEVEFT 


SCHED  (TIAST,  TEVEN-I,  BELT,  JEVENT) 

To  schedule  for  G0DSEP  the  next  measurement 
or  event  to  be  processed. 

During  normal  operation,  SCHED  returns  a pre- 
computed measurement  or  event  and  then  computes 
and  stores  locally  the  next  measurement  or 
event  to  be  processed.  Therefore,  two  succes- 
sive calls  are  required  to  initialize  both  the 
measurement  and  event  scheduling  sequences. 

The  purpose  in  pre-computing  times  and  event 
codes  is  to  minimize  search  time,  \-Ihen  a mea- 
surement is  scheduled,  only  measurements  need 
be  scanned  for  the  next  scheduling,  not  events. 
The  reverse,  of  course,  is  true  when  an  event 
is  scheduled. 


Input/  Argument/ 

Output  Common  Definition 


I 

0 

0 


0 


A Time  of  previous  measure- 

ment/event, 

A Time  of  new  measurement/ 

event, 

A Time  difference  between 

previous  and  new  measure- 
ment/event, 

A Integer  code  of  new  measure 

ment/event  corresponding  to 
time  TEVENT, 


BIG 


I 


C 


An  awfully  large  nxmiber 


SCHED-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

MC0DE 

I 

G 

Array  of  measurement  codes 
to  be  scheduled. 

MC0nHT 

I/O 

G 

Measurement  counter. 

NCNTE 

I/O 

C 

Eigenvector  event  counter. 

NCNXG 

I/O 

C 

Guidance  event  counter. 

NCNTP 

I/O 

c 

Prediction  event  counter. 

KCNTT 

I/O 

c 

Thrust  event  counter. 

HEIGEN 

I 

c 

Total  number  of  eigenvector 
events. 

NGUID 

I 

G 

Total  number  of  guidance 
events. 

NPEED 

I 

C 

Total  number  of  prediction 
events. 

NSCKED 

I 

C 

Number  of  schedule  times 
in  SGHEDM  to  be  scanned 
for  next  measurement  or 
propagation  event. 

HTHRST 

I 

C 

Total  number  of  thrust 
events. 

SGHEDM 

I 

C 

Array  of  measurement  sched- 
ule times 

SGIIEDM(1,I)  = Next  time  to 
be  scheduled  £or  measurement 
type  MC0DE(I), 

SCHEDM(2,I)  = Stop  time  for 
MG0DE (I) . 

SCHEDH(3jI)  = Time  increment 
for  scheduling  MC0DE(I), 

XEIGEN  I C Array  of  eigenvector  event 

times. 


' Variable 


Input/ 

Outnut 


Argument/ 

Conmton 


SCHED-3 


Definition 


TFINAL 


Finr'.l  time* 


TGUID 


Array  of  guidance  event 
times. 


TERED 


Array  of  prediction  event 
times. 


TTHRST 


Array  of  thrust  event 
times. 


Local  Variables: 


Variable 


Definition 


JENEXT 


MKE3CT 


Integer  code  of  next  event  to  be  sched- 
uled. 

Integer  code  of  next  measurement  to  be 
scheduled. 


TEiffiXT 


Time  of  next  event  to  be  scheduled. 


TlUffiXT 


Time  of  next  measurement  to  be  sched- 
uled. 


Subroutines  Called;  None 

Calling  Subroutines;  ^UTPTG,  STMGEN,  G0DSEE 


Common  Blocks : 


C0NST,  SCHEDI,  SCHEDR 


— i 


1 


1 


Logic  Flaw; 


SCHCD 


TMtffiXT  > 
TENEXT 


J - ...I 


SCHED-4 


TEVEOT  = TMNEXT 
TEVT-NT  = MNEXT 
Increment  E-tC0UNT 
Find  IMIN  Such  That 
■ SCHEDMCI,  IMIN) 
i SCHEDM(I,  1) 

For  All  1 ^ NSCHED 


TEVEKT  = TENEXT 
JEVENT  = JENEXT 
Increment  Appropriate 
Event  Counter 
TENEXT  = BIG 


TMNEXT  = SCHED  (I.IMIN) 
HNEXT  = MC0DE  (IMIN) 
Increment  SCHEDH 
(I.IMIN) 

by  SCHEDM  (3 » IMIN) 


TENEXT  = Minimum 
Of  Remaining  Event 
Times,  If  Any 
JENEXT  = Corresponding  i 
Event  Number 


SCHEDMCI, IMIN)  > 
SCHEDM (2 , LMJ  N) 


SCHEDMCI,  IMIN) 
= BIG 


DELT  = TEVENT  - TLAST 


JEVENT 
= -1 


NEPHEL 


I 


1 


1 


1 


C 


Number  of  ephemeris  elements 
in  augmented  state  vector. 


325 


SETEVN-2 


Input/  Argument/ » 

Variable Output Common  Definition 


P I C 

PLAB  I C 

PL0CAL  I C 

PTEMP  I C 

SGMASS  I C 

TCUER  I C 

TDUR  0 C 

TFIKAL  I C 

TGST0P  I C 

TM  I C 


local  Variables: 


Location  in  blank  common 
of  current  knowledge 
covariance. 

Array  of  Hollerith  labels 
for  knowledge  covariance 
sub-blocks. 

Location  in  blank  common 
of  working  storage  provided 
to  subroutine  REIX!0V, 

Location  in  blank  common  of 
predicted  knowledge  covari- 
ance. 

Current  S/C  mass. 

Current  trajectory  time. 

Maximum  integration  time 
(seconds)  for  TRAJ, 

Error  analysis  final  time. 

Maximum  integration  time 
(days)  if  prediction  event 
requires  integration  past 
TFINAL,' 

Conversion  constant*  seconds/ 
day. 


Variable 


Definition 


LP 


Location  in  blank  common  of  covariance 
to  be  operated  on  by  RELC0V  and  C0BHEL. 


Subroutines  Called; 


J0BTLE,  HPA.‘T.  VARSD,  PRSDEV,  PtliHTT,  EIGPRN,  SEI.Q0V» 
G0RREL,  C0VPi  MASSIG,:  DYN0 


Calling  Subroutine:  G0DSEP 


SETEVN-3 


Gommon  Blocks;  ' W0RK,  (BLANK),  C0NST,  DII'IENS,  GUIDE,  KEPC0N,  ‘ 

LABEL,  L0CATE,  L0GIC,  MEASI,  PR0PI,  SCHEDI, 
SCHEDR,  TIME,  TRAJl 


! 


I - 


1 


i 


.1 
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SETGUI-1 


3.3,38  Subroutine;  SETGUI 

Purpose;  Set  up  control  for  guidance  event.  Performs 


all  computations  which  must  be  done  in  primary 
overlay  which  consists  pr'marily  of  interfacing 
with  TRAJ. 

Input /Output; 


Variable 

Input/ 

Output 

Argument/ 

Condon 

Definition 

BIG 

I 

c 

Enormous  constant,  1.E20 

BUSH? 

0 

Masb  and  thrust  at  gEiidWce  start 

and  stop 

CHEKPR(8) 

I 

c 

Logical  flag. 

= T,  generate  transition 
matrices  for  guidance 
by  reading  STM  file, 

= F,  integrate  transition 
matrices  for  guidance 
in  XRAJ. 

DELAY 

0 

c 

Guidance  delay  time  fcr 
current  event,  t 

DSDKAE 

0 

c 

DXDKST  evaluated  at  end 
of  burn  interval.  * 

dxdkbr 

0 

c 

DXDIST  evaluated  at  begin- 
ning of  burn  interval. 

DXDKST 

I 

c 

Keplerian  to  cartesian 
epheraeris  transformation 
from  STMRDR,  corresponds 
to  beginning  of  guidance 
delay  interval. 

GT 

1/0 

c 

Transformation  matrix  for 
subroutine  DYK0  evaluated 
at  end  of  propagation  inter- 
val. 

GT  matrix  evaluated  at  begin- 
ning of  burn  interval. 


GTBURiN 


0 
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SETGUX-2 


Variable 

i 

Input/ 

Output 

Argunient/ 

Cotmnon 

Definition 

GTDLAY 

0 

C 

GT  matrix  evaluated  at 
beginning  of  delay  interval. 

GT0FV 

C 

GT  matrix  evaluated  at  end 
of  burn  interval. 

GTSAVE 

C 

GI  matrix  evaluated  at  begin- 
ning of  current  propagation 
interval  for  subroutine  DYN0. 

lAUGDC 

I/O 

C 

Dynamic  parameter  augmentation 
flags. 

ICALL 

0 

C 

Setup  parameter  for  TRAJ 
(Section  3,5) 

lEP 

I 

C 

Set  UP,  VP  below. 

lEPHEM 

I 

C 

Ephemeris  element  coordinate 
system  flag. 

IGP0L 

I 

C 

Array  of  guidance  policy  flags 

igread 

I 

C 

Array  of  namelist  $GEVENT 
read  control  flags. 

INTEG 

(S 

C 

Setup  parameter  for  TRAj 
(Section  3.5) 

IP0L 

0 

C 

Guidance  policy  flag  for 
current  event. 

IPRINT 

0 

C 

Setup  parameter  for  TRAJ 
(Section  3.5) 

IREAD 

0 

C 

$GEVENT  read  policy  for 
current  event. 

IST0P 

0 

C 

Stopping  condition  parameter 
for  TRAJ  (Section  3.5) 

KUT0FF 

0 

C 

Flag  indicating  actual  inte- 
grator stopping  conditions. 

LISTDY 

1 

c 

List  of  dynamic  parameters 
contained  in  transition 
matrix  generated  either 
from  STH  file  or  TRAJ, 

1 


1 


J 


^31 


SET(3U1"3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CTC 

I 

C 

Location  in  blank  common 
of  transition  matrix 
returned  by  TRAJ. 

KEVENT 

0 

C 

Setup  flag  for  I’RAJ 
(Section  3,5) 

MG 

I 

c 

Length  of  augmented  state 
vector. 

HCKTG 

I 

c 

Number  of  current  guidance 
event . 

NPHSTld 

I 

c 

Dimension  of  transition 
matrix  returned  by  subroutine 
STMDR  or  by  TRAJ. 

NPRI 

I 

c 

Body  nuniber  of  primary 
integration  body. 

HTPHAS 

1 

c 

Number  of  current  thrust  phas 

PGi 

I 

c 

Locations  in  blank  common 
of  working  storage  for 

PG2 

1 

c 

guidance  related  covariance 
computations. 

PHI 

I 

c 

Location  in  blank  common 
of  transition  matrix. 

PL0CAL 

I 

c 

Location  in  blank  common  of 
covariance  working  storage. 

PTEMP 

I 

c 

Location  in  blank  common  of 
covariance  working  storage. 

S 

0 

c 

Guidance  sensitivity  matrix, 
cutoff  state  wrt  controls. 

SCIiASS 

I 

c 

S/C  mass. 

SMASS 

I 

c 

Mass  of  sun. 

STATEO 

0 

c 

Initial  integration  state 
for  TRAJ. 

TBVFN 

0 

c 

Length  of  burn  interval  for 
current  event. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

TGUT0F 

I 

C 

TDELAY 

0 

C 

TDUR 

0 

C 

TEVKT 

0 

C 

TFIKAL 

I 

C 

TGST0P 

I 

C 

TGUID 

I 

C 

THRACC 

I 

C 

TIIIFTA 

I 

C 

TM 

I 

G 

T0FF 

0 

C 

T0N 

0 

C 

TREF 

0 

C 

TSTM 

I 

C 

UP  (1,IEP) 

I 

G 

VP  (l/lEP) 

I 

G 

DTRUE 

I 

C 

SETGUI-4 


Definition 


Array  of  guidance  event- 
cutoff  times. 

Guidance  delay  time  for 
current  event. 

Maximum  integration  time 
(seconds)  for  TRAJ, 

Event  time  for  TRAJ, 

Error  analysis  final  time. 

Maximum  integration  time 
if  guidance  event  needs 
transition  matrices  eval- 
uated past  final  time. 

Array  of  guidance  event 
scheduled  times. 

Thrust  acceleration  vector. 

Target  condition  evaluation 
time  for  fixed  time  of 
arrival  guidance. 

Conversion  constant,  seconds/ 
day. 

Cutoff  time  for  current 
event. 

Maneuver  execution  time  for 
current  event, 

TRAJ  reference  time  for 
integration  initialization, 

STM  file  time. 

Position  of  ephemeris  body. 

Velocity  of  ephemeris  body, 

S/C  heliocentric  ecliptic 
position  vector  used  to 
define  STATED  for  TRAJ 
ini tla liza  tion. 


SETGUI-5 


Variable 

Input/ 

Output 

Argument/ 

Common 

' Definition 

VTRUE 

I 

C 

S/C  heliocentric  ecliptic 
velocity  vector  used  to 
define  STATED  for  TRAJ 
initialization. 

VRNIER 

0 

C 

Logical  flag. 

= T,  current  maneuver  is 
vernier 

= F,  current  maneuver  is 
primary. 

Variables : 

Variable 

Definition 

IHOLDI,  IHOLD2,  IHOLD3  Locations  for  saving  parameter  values 

II10LD4,  IH0LD5,  IH0LD6  which  will  be  changed  by  calls  to 

either  STMRDR  or  TRAJ, 

TSTMSV  Saves  STM  file  time  (TSTM)  when  gen- 

erating state  transition  matrices  by 
calling  STMRDR. 


Subroutines  Called:  C0PY,  ZER0M,  SIl-mDR,  MPAK,  STMUSE,  STMPR,  PARKEP, 

B0tJS,  J0BTLE 

Calling  Subroutine:  G0DSEP 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  EPHEM,  GUIDE,  KEPC0N, 

L0GATE,  L0GIC,  MEASI,  PR0PI,  PR0PR,  SCHEDI,  SCHEDR, 
TIME,  TRAJl,  TRAJ2 


SETGUI-6 


Loeic  Flow 


SETGUI 


Sec  guidance 
variables  from 
array  values 
Save  KPRl, 
NPHSTM,  IAUGDC(2) 


CHEKPRC8)  = .TRUE. 
j(Read  transition 
\ matrices  from 
\ STM  file?)  / 


1 STMRDR 

TRAJ  j 

I Read  necessary 
1 transition 
I matrices  from 
1 STM  file. 

integrate  trans-| 
ition  matrices.  | 
Test  KUT0FF  for  | 
abnormal  | 
termination,  | 

#3000 


0VERLAY  GUIDE 


Execute 

Maneuver 


Reset  perturbed 
parameters 


RETURN 


3.3.39  Subroutine: 
Purpose : 

Remarks : 


Input /Output: 

Variable 

CHEKPR(i) 


J 


j 


1 
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STMGEN-l 


STMGEN 

Generate  STM  file. 

For  effective  process  noise  computation  subroutine 
DYN0  requires  the  evaluation  at  beginning  and  end 
of  a propagation  interval  of  the  rotation  matrix 
from  body-centered  magnitude,  cone,  clock  system 
to  heliocentric  ecliptic  cartesian  coordinates. 

This  transformation  must  be  saved  on  the  STM  file. 
At  thrust  phase  change  two  such  transformations 
are  required,  one  for  each  phase  evaluated  at  the 
same  time  point.  Calls  to  the  trajectory  overlay 
are  generated  to  guarantee  that  this  transformation 
is  always  evaluated  for  the  interval  just  ending, 
and  an  extra  call  to  subroutine  EP  is  required  to 
evaluate  the  transformation  at  the  beginning  of 
the  new  thrust  phase.  This  pertains  to  statements 
between  statement  numbers  300  and  400. 

Input/  Argument/ 

Output Common Defini  tion 

I G Check  print  flag. 

*=  T,  write  to  output  all 

trajectory  information 
written  on  STM  file. 

= F,  no  write  to  output, 

I Time  difference  between 

previously  and  currently 
scheduled  events. 


DELTIM 
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STOGEN-2 


Input/  Argument/ 
Variable Output Common 


Defini tion 


L0CM 

X 

C 

Location  as  blank  common  of 
current  S/C  mass. 

L0CTC 

I 

G 

Location  as  blank  common  of 
current  transition  matrix. 

MESEVN 

I 

C 

Current  event  code. 

KCKIT 

I 

C 

Number  of  current  thrust 
event. 

NPHSTH 


TCURR 


Dimension  of  transition 
matrix. 


Currently  scheduled  tra- 
jectory time. 


TFINAL 


m 


TPAST 


XNTEG 
IST0P 

ICALL  ^ 0 

lEVEKT 
TREE,  TEVKT 
TGURR,  TPAST 
NPRI,  NTPHAS 
APERT,  APRIM 
C0tIM0K  CL0CM)^0 
RPACC,  THHAGC 
UP,  VP,  UREL 
USELM,  VEEL 
YRELM,  UTRUE 


C Stop  time  for  STM  file 

generation. 

C Conversion  constant,  seconds/ 

day. 

C Previously  scheduled  tra- 

jectory time. 


Initialization  parameters 
for  TRAJ, 


Trajectory  information 
written  to  STM  file.  See 
G common  block  descriptions 

for  individual  variable 
descriptions . 


i 


1 


i 
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STI-lGEN-3 

» 

Input/  Argument/ 

Variable Output Common Defini  tion 

. Trajectory  information 

C written  to  STM  file.  See 

coimon  block  descriptions 
for  individual  variable 
descriptions. 

Local  Variables:  None 

Subroutines  Called:  C0PY,  SCHED,  EP 

Calling  Subroutine:  G0DSEP 

Common  Blocks:  W0RK,  (BLANK),  C0NST,  DIMENS,  L0GIC,  PR0PR, 

SCHEDI,  SCHEDR,  TIME,  TRAJl,  TRAJ2 

Logic  Flow: 


VTRUE,  UTRUEM' 
VTRDEM,  WP0^ffiR'>  0 
GT,  6TSAVE, 

C0MM0N  (L0CTC) 


None 


SMR-1 


3.3.40  Subroutine; ' STMPR  (T,  TF,  PHIMAT) 

Purpose ; To  print  state  transition  matrix  partitions 

and  effective  process  noise  covariance  if 
computed, 

Xnput/Output ; 

Input/  Argument/ 

Variable Output Common Definition 


T I A 

TF  I . A 

PHIMAT  I A 

AUGIAB  I C 

DYNOIS  I C 

L0aAUG  I 0 

L0CIAB  I G 

KAUG  I C 

KDIM  I C 

PRNSTM  I C 


Trajectory  time  at  beginning 
of  propagation  interval. 

Trajectory  time  at  end  of 
propagation  interval. 

Augmented  transition  matrix 
over 'propagation  interval. 

Array  of  augmented  parameter 
Hollerith  labels. 

I^namic  noise  flag. 

Array  locating  sub-blocks 
within  augmented  transition 
ma trix. 

Array  locating  state  vector 
partions  within  AUGLAB  array. 

Length  of  augmented  state 
vector. 

Array  of  lengths  of  individ- 
ual state  vector  partitions. 

Output  control  flag  determin- 
ing sets  of  transition  matrix 
sub-blocks  to  be  printed. 

= T,  print  sensitivities  of 
relevant  state  vector 
partition  to  entire 
augmented  state. 

- F,  no  sensitivities  printed 
for  relevant  state  vector 
partition. 
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STMPR-2 


* 


Input/  Argument/ 

Variable Output Common Definition 

(1)  - S/C  state 

(2)  - Solve-for  parameters 

(3)  - Dynamic  consider  para- 
meters 

(4)  - Measurement  consider 
parameters 

(5)  - Ignore  parameters. 

I C Effective  process  noise 

covariance. 

I C Array  of  state  vector  par- 

tition Hollerith  labels. 


Local  Variables:  None 

Subroutines  Called:  PRPART,  MT0UT 

Calling  Subroutines:  MEASPR,  STMRDR,  GUIDE,  SETGUI 
Common  Blocks;  W0RK,  DIMENS,  LABEL,  L0GIC,  PR0PR 

Logic  FI'  w:  None 


Q 

VECLAB 


$ 


STMRDR-1 


.3*3.41  Subroutine 
Purpose! 

Remarks ; 


Input /Output: 

Variable 

T 

TF 

10PT 

^ CHEiiPR(l) 
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STMROR  (T,  TF,  I0PT) 

To  read  transition  matrices  and  trajectory 
information  from  STM  file  (TAPE  3), 

During  STM  file  creation  the  user  should  have 
scheduled  as  fine  a time  grid  of  trajectory 
points  as  will  ever  be  necessary  for  the  par- 
.ticular  mission.  Therefore,  situations  will 
occur  during  STM  file  reading  where  many  time 
points  are  encountered  on  the  file  between 
time  points  requested  by  the  scheduler  for 
the  current  error  analysis.  In  this  situation 
transition  matrices  over  the  short  time  inter- 
vals are  chained  to  produce  the  required  transi- 
tion matrix  over  the  complete  time  interval. 


Input/  Argument/ 

Output Common  Definition 


I 

I 

I 


I 


A 

A 

A 


C 


Trajectory  time  at  beginning 
of  propagation  interval. 

Scheduled  trajectory  time  at 
end  of  propagation  interval. 

Option  flag. 

= 0,  normal  read, 

=41,  count  number  of  records 
read  for  future  back- 
space capability. 

“ -1,  same  as  41  but  compute 
guidance  sensitivity 
matrix  in  addition. 

Check  print  flag. 


STl-IRDR-2 


Input/ 

Variable Output 


Argument/ 

Common 


Definition 


= T,  print  all  trajectory 
information  read  from 
STM  file  and  all  inter- 
mediate products  in 
transition  matrix 
chaining. 

= F,  no  print. 


DELTIM 

I/O 

c 

Input  as  scheduled  interval 
length.  If  STM  file  i^ 
already  positioned  within 
forward  tolerance  DELTIM  is 
set  to  0. 

DSDKST 

0 

G 

. Keplerian  to  cartesian 

transformation  for  ephemeris 
body  evaluated  at  time  TSTM. 

lEP 

I 

C 

See  UPj  VP  below* 

'lEPHEH 

I 

C 

Ephemeris  coordinate  system 
flag. 

LISTDY 

I 

C 

List  of  dynamic  parameters 
included  in  transition  matrix 
read  from  STM  file. 

MESH 

0 

G 

Logical  flag. 

= T,  successful  mesh  of 

scheduled  trajectory 
times  with  STtl  file 
times , 

= F,  unsuccessful  mesh. 

NAUG 

I 

c 

Length  of  augmented  state 
vector. 

KPHSTM 

I 

c 

Dimension  of  transition 
matrix  read  from  STM  file. 

PHI 

I 

c 

Location  in  blank  common  of 
output  transition  matrix. 

PLOCAL 

I 

c 

Location  in  blank  common  of 
transition  matrix  working 
storage  for  chaining. 

STMRDR-3 


Input/ 

Vat lab la  ’ Output 


Argument/ 

Conraion 


Definition 


PTEMP  I 


S 0 

SCHFTL  I 


SMASS  , I 

T0LBAK  I 

I0LF0R  I 

TSTM  0 

UP(1,IEP)  0 

VP(1,IEP)  0 


NPRI,  KTPHAS 
APERT,  APRIM 
SCmSS,  RPACC 
THR&GG,liP,VP 
UREL,  UREIiM 
VREL,  VREia^I 
triRTJE,  VTRUE 
DTROEM,  VTRUEM 
'HT0WER,  GT 
GTSAVE 


C Losation  in  blank  comnion 

of  transition  tiatrix  work- 
ing storage  for  chaining, 

C Guidance  sensitivity 

matrix  computed  if  I0PT  = 1 

C Logical  flag, 

“ T,  failure  to  mesh  is 
fatal. 

= P,  failure  to  mesh  is 
not  fatal, 

C Mass  of  sun. 

C Backward  tolerance  on  file 

time  meshing, 

C Forward  tolerance  on  file 

time  meshing. 

C Current  STM  file  time. 

C Heliocentric  position  of 

ephemeris  body. 

C Heliocentric  velocity  of 

ephemeris  body. 


Trajectory  related  informa- 
tion read  from  STM  file, 

C See  individual  parameter 

definitions  in  common 
block  descriptions. 


i 


. ...J 
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Local  Variablgs; 


Variab le 

Definition 

IHOLD 

Intermediate  holding  variable  used 
when  exchanging  values  of  IPHI2  and 
1PHI3 . 

IPHI2  1 

Initially  set  to  PL0CAL  and  PTEMP 
respectively.  Values  are  switched  to 

IPH13  f 

avoid  copying  of  intermediate  transi- 
tion matrices  used  in  chaining. 

NBACK 

Number  of  records  read  when  I0PT  = 0 
to  be  used  for  backspacing. 

NDPPER 

Upper  word  limit  for.  reading  STM  record 

TSTMO 

Last  Value  of  TSTM  when  I0PT  = 0. 

Subroutines  Called: 

VECMA.G,  PASKEP,  B0MB,  MAT0UT,  MPAK,  STilUSE, 

STMPR 

Calling  Subroutines: 

C0VP,  SETGUI 

Common  Blocks; 

W0RK,  (BLANK),  C0NST,  DIMENS,  EPHEM,  GUIDE, 
KEPC0N,  L0CATE,  L0GIC,  MEASI,  PR0PR,,  SCHEDI, 
SCHEDP,  TIME,  TRAJl,  TRAJ2 

STMRDR 


STMRDR- 5 


y . . , 

MESH  = 

.TRUE, 

. 

NBACR  = 0 ,0R, 
I0PT  # 0 CSTM 
file  properly 
positioned?) 


/^Rewind  ^ 
/ STM  file,  ' 
'skip  forward 
I to  correct 
\ position  J 


TF  > TSTM  4-  T0LF0R 
(Requested  time 
greater  than 
file  time  + 
forward  tolerance?) 


DELTIM  0, 


yT  Read 
r transit! 
matrix  a 
tra jec  to 
< info 


FRSTIM  = .TRUE. 
(Does  this  read 
sequence  start 
from 

file  beginnine?) 


RETURN 


T > T2  + T0LF0R 
Will  next  time 
point  mesh  with 
interva  1 
beginning? 


I 


STHRDR-6 


FRSTIM  = .FALSE, 
Compute  DXDKST 
at  beginning  of 
interval  if 
necessary 


T > Tl-Fi:0LF0R 
Requested  time 
still  greater 
than  file  time 


f MESH  = TRUE  \ 

k TVIrk  ^ 

B0MB 

.0R.  SCHFTL  + 

.TRUE.  Successful 

Terminate 

S^mesh,  or  failure  OK?  ^ 

Processing 

Chain  transition 
matrices 


#500 


TFT*  T2-FI0LF0R 
Final  time  greater 
than  file  time? 


MESH  = .TRUE.  .0R 
SCHFTL  ^ .TRUE, 
^sh  successful, 
or  failure  OK 


Yes 


STMUSE 


Terminate 

Processing 


Convert  transi- 
tion matrix  to 
usa’jie  form 


] 


I 


3,3*42  Subroutine 
Purpose; 

i 

Remarks : 


Input/Output; 

Variable 

THRNUH 
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STMUSE  (THRNUM,  DXDK»  STMIN,  KIN,  LISTIN,' 

STM0UT,  N0UT) 

To  convert  state  transition  matrix  as  read  from 
STci  file  to  state  transition  matrix  as  needed 
by  augmented  covariance  matrix. 

There  are  four  possible  operations  required  to 
convert  STM  file  transition  matrices  to  the 
augmented  transition  matrix  required  for 
covariance  propagation; 

(1)  ordering  of  ro\7S  and  columns  with  insertions 
for  measurement  parameters  and  deletions 
for  unused  dynamic  parameters  as  necessary 

(2)  scaling  of  thrust  parameter  sensitivities 
to  account  for  number  of  thruster  operating 
over  current  phase; 

(3)  the  setting  to  identity  of  ephemeris  element 
to  ephemeris  element  sensitivity  sub-block 
if  stationary  cartesian  or  Keplerian  elements 
are  augmented;  and 

(4)  the  coordinate  transformation  of  S/C  state 
sensitivities  to  ephemeris  elements  if  those 
elements  are  Keplerian. 


Input/  Argument/ 

Output Common Befini  ti  on 

I ^ Humber  of  thrusters  operat- 

ing over  transition  matrix 
interval. 


STMUSE-2 


Variable 

Input/ 

Output 

Argument / 
Coiranon 

Definition 

DXDK 

T 

A 

Keplerian  to  cartesian 
transformation  for  ephemeris 
elements  evaluated  at  begin 
ning  of  interval. 

STMIN 

I 

A 

Input  transition  matrix. 

NIN 

I 

A 

Dimension  of  input  transi- 
tion matrix. 

LISTIN 

I 

A 

List  of  parameters  included 
in  input  transition  matrix. 

ST1-I0UT 

0 

A 

Output  transition  matrix. 

N0UT 

0 

A 

Dimension  of  out'  : ' transi- 
tion matrix  (required  only 
variably  dimensioning 
STM0UT) . 

lEPHEM 

I 

C 

Coordinate  system  flag  for 
ephemeris  elements. 

LIST 

I 

C 

Parameter  list  for  output 
transition  matrix. 

LISTPH 

I 

c 

Parameter  list  of  possible 
ephemeris  elements. 

HEPHEL 

I 

G 

Number  of  ephemeris  elements 
augmented  to  stdte. 

Local  Variables: 

None 

*, 

Subroutines  Called 

: IDENT, 

L0ADRC,  SQRT, 

L0GLST,  SCALE,  L0DC0L,  MMAB 

Calling  Subroutines:  STMRDR,  SETGUI 

Common  Blocks: 

W0RK, 

DIMENS,  KEPCE*^ 

, MEASI 
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Logic  Flow; 


nam!| 


SCALE 


Scale  down  single 
thruster  sensitivi- 
ties according  to 
no.  of  thrusters. 


JEPHEM  ^ 0 
.0R. 

NEPHEL  = 0 
(Any  stationary 
ephemeris  parameters) 


No 


IDENT,  L0ADRC 


Load  identity 
into  epliemeris 
to  ephemeris 
sensitivities 


I 


lEPHEM  5^  2 

Are  ephemeris 
parameters 
cartesian? 


No 


Yes 


RSrjRN 


L0DC0L,  >L-LAB,  L0DC0L 


Transform  S/C  state 
sensitivities  to  ephemeris 
elements  from  cartesian  to 
Keplerian  space. 


1 


1 
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3.3.43  Subroutine;  VERR  (VARDV,  DV,  C0VERR) 

Purpose ; To  compute  the  AV  execution' error  covariance. 

Method ; Variances  in  AT  proportionality,  resolution 

and  two  pointing  angles  are  applied  to  the  input 
AV  to  form  the  execution  error  covariance  (See 
Section  6,3  of  the  Analytic  Manual), 


Input/Output: 


Variable 


Input/  Argument/ 

Output Common 


Defini tion 


VARDV 

I 

DV 

I 

C0VERR 

0 

Subroutines  Called: 

None 

Calling  Subroutines; 

GUIDE 

Common  Blocks: 

None 

Logic  Flow; 

None 

At  execution  error 
variances : 

O-PRO.  (T,  _ 0-/ 

AV  = AVy.  AVg) 


Execution  error  covariance 
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3,4 

Purpose: 
Method : 


Reiaarks : 


Subroutine;  SIMSEP 

To  control  the  overall  logic  flow  of  the  trajec- 
tory simulation  mode. 

SII'ISEP  is  the  main  subroutine  in  the  trajectory 
simulation  mode.  Its  primary  function  is  to 
control  the  execution  of  algorithms  and  logic 
according  to  the  operation  and  option  flags 
specified  during  input.  This  is  done  in  two 
basic  cycles  within  the  program.  The  first, 
or  outer  cycle,  is  the  so-called  Monte  "arlo 
mission  cycle  where  a complete  actual  trajectory 
is  propagated  from  beginning  to  end.  Included 
within  the  mission  cycle  is  the  guidance  event 
loop  where  trajectory  estimation  and  guidance 
are  performed  to  keep  the  "actual”  trajectory 
on  course.  After  many  sample  missions  have  been 
flot7n,  certain  statistical  parameters  are  com- 
puted  to  aid  in  the  deduction  of  expected  trajec- 
tory characteristics  and  system  performance. 

One  of  the  key  operations  performed  in  SIMSEP 
and  its  subordinate  routines  is  the  propagation 
of  trajectories  from  one  time  point  to  another. 
This  operation  may  simultaneously  include  the 
generation  of  state  traTisition  matrices.  Since 
all  communications  with  the  integrator  are  by 
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common  block  variables,  the  explicit  in  line 
initialization  of  integrator  control  variables 
prior  to  calling  the  trajectory  routine  is 
evident  throughout  SIMSEP.  A list  of  variables 
which  must  be  defined  to  properly  initialize 
the  trajectory  is  given  below,  This  list  should 
clarify  how  SIMSEP 's  interface  with  TRAJ  is  per- 
formed. 


Variable 

Definition 

EP^CH 

Initial  trajectory  epoch,  a Julian 
date. 

TREF 

Trajectory  starting  time  (in  seconds) 
measured  from  EP0CH, 

TDUR 

Trajectory  termination  time  (in 
seconds)  measured  from  EP0CH, 

STATEO 

State  vector  specified  at  TREF, 

SCMASS 

S/C  mass  specified  at  TREF, 

NXPHAS 

Thrust  pharr?  number  of  TREF, 

NPRI 

Primary  body  number  at  TREF, 

ICALL 

Trajectory  initialization  flag. 

ICALL  = 1,  the  trajectory  is  ini- 
tialized and  propagated, 
ICALL  =2,  the  trajectory  is  ini- 
tialized only, 

ICALL  =3,  the  trajectory  is  propa- 
gated from  a previous 
integration  step. 

IHTEG 

Flag  indicating  which  equations  are 
to  be  integrated  in  TRAJ, 

INTEG  ~ 1,  equations  of  motion  and 

variational  equations  are 
to  be  integrated. 

1 


i 


J 


/ 

Varlablfe 

IST0P 


InputAJutputr 

Variable 

NREF 

UREL 


VKEL 


BLAim 

(L0GM) 

f 
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Def ini cion 


INTEG  =2,  only  the  equations  of 
motion  are  integrated. 

Trajectory  stopping  condition  flag, 

IST0P  = 1,  the  trajectory  integration 
is  ended  at  TDVR. 

IST0P  = 2,  the  trajectory  integration 
is  ended  when  closest 
approach  is  detected  at 
the  target  body, 

IST0P  = 3,  the  trajectory  is  stopped 
when  the  sphere  of  influ- 
ence is  encountered. 


Input/  Argument/ 

Output Common Definition 


I 


C 


State  vector  read-in  flag. 


I 


I 


I 


C Relative  s/c  position 

vec tors. 

UREL  (1,1)  for  i = 1,  2,  3 
is  the  heliocentric  posi- 
tion vector  of  the  s/c. 

UREL  (i,  ITP)  for  i ==  1, 

2,  3 is  the  position  vector 
relative  to  the  target 
planet. 

C VEEL  Ci,l)  for  i 1,  2,  3 

is  the  heliocentric  velocity 
vector  of  the  s/c, 

VREL  Ci,  ITP)  for  i = 1, 

2,  3 is  the  velocity  vector 
relative  to  the  target 
planet. 

C Current  s/c  mass  at  any 

given  instant  along  the 
trajectory  integration. 

C Trajectory  stop  time  rela- 

tive to  EP0CH. 


TST0P 


I 
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Variable 

iBput/ 

Output 

Argument/ 

Comon 

Definition 

EPte 

I 

C 

Initial  epoch  of  the  mis- 
sion. A Julian  data  corre- 
sponding to  the  launch  of 
the  mission. 

T6E 

I 

c 

Epoch  of  a guidance  event. 

laAN 

I 

c 

Random  number  seed. 

N0ISED 

I 

c 

Thrust  process  noise  flag. 
If  N0ISED  “1,  time-varying 
dynamic  noise  is  activated 
in  the  trajectory  integra- 
tor. If  {70ISED  “0,  there 
Is  no  dynamic  noise. 

P6 

I 

c 

Initial  s/c  control  cov- 
ariance in  eigenvector/ 
eigenvalue  form. 

KTERR 

I 

c 

Flag  to  indicate  whether 
or  not  a trajectory  is  to 
be  propagated  after  a given 
guidance  correction  to  the 
designated  target  to  eval- 
uate target  errors.  If 
KTERR  *“1*  target  errors 
are  computed.  If  KTERE.  “ 

0,  no  target  errors. 

NSMP 

I 

, c 

Previous  number  of  Monte 
Carlo  cycles  that  have  been 
processed  for  a given 
guidance  event. 

MC 

I 

c 

Previous  number  of  Monte 
Carlo  cycles  that  have 
been  processed  for  the 
total  mission. 

EXGE 

I 

c 

Reference  trajectory  state 
vectors  at  guidance  events. 

EH6E 

I 

c 

Reference  s/c  mass  at  guid- 
ance events. 

I 

c 

Reference  trajectory  state 
at  the  target  time. 

SMTAR 

I 

C' 

Reference  s/e  lase  at  the 
target  tMe. 

1 


1 


Jt 


Varij?,ble 


THRUST 


HTPH 


STHRT3 


NGUID 


Input/ 

Output 


Argmaent/ 

Coinmon 


SIMSEP-5 


Definition 

Thrust  control  array. 

Thrust  control  phase  nuttber 
at  guidance  events. 

Stored  thrust  control  array 
for  the  reference  trajectory 
thrust  profile. 

Number  of  guidance  events 
for  this  mission. 


NcnrcLE 


Number  of  Monte  Carlo 
cycles  for  this  SIMSEP 
run. 


Local  Variables: 


Variable 


XEEPO 


IPSNT 


Definition 

Monte  Carlo  cycle  counter  for  complete 
missions. 

Guidance  event  counter  for  completed 
guidance  events  within  a mission. 

Initial  reference  trajectory  state 
vector. 

Actual  trajectory  state  vector. 

Estimated  trajectory  state  vector. 

Actual  trajectory  final  target  vari- 
ables. 

Print  output  flag. 

Guidance  convergence  flag. 


ICHVEG 


SIHSEP-6 


Variable 

BELTAU 

IGUID 

Subroutines  Called t 

Calling  Subroutines; 
Comon  Blacks  t 


Definition 

Guidance  control  corrections  computed 
at  a guidance  event  •. 

Guidance  law  flag. 


C0PY»  CSAMP,  DATAS,  EPHSMPf  ERRSMP,  EXGUID, 
LGUID,  NLGUID,  N0ISE,  0D,  0PSTAT*  TRAJ, 
KEFRTJ,  SET,  SPRNTl,  STAT,  TC0MP,  VECMAG, 
ZER0M 

MAPSEP 

G0NST,  CYCLE,  DYN0S,  EBIT,  EPHEM,  lASTM, 
SIMl,  ISIMl,  SIM2,  ISXM2,  SIHLAB,  ST0BEC, 
TIME,  TRAJl,  TRAJ2,  WORK,  (BLANK) 
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SIHSEP-8 


0D 

Sample  Augmented  Knowledge 
Covariance  To  Form  Estimated 
State  Vector  XE 


35S 


r-=?' 

■w>^ 


SIMSEP-XO 


) 
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3,4.1  Subroutine 
Purpose; 

Method ! 


Remarks: 


Input/Output : 
Variable 


CSAMP  (EVEC»  KN,  REFVEC,  SMPVEC,  IRAN)  ' 

To  sample  a n-dimensional  covariance  matrix  in 
order  to  formulate  a aero-mean,  Gaussian,  error 
vector  which  is  added  to  the  reference  value. 
From  an  input  array  of  eigenvalues  corresponding 
to  a specified  covariance  matrix  in  an  uncorre- 
lated representation,  a standard  Monte  Carlo 
sampling  technique  is  used  to  define  a random 
vector.  This  random  vector  is  then  multiplied 
by  the  modal  matrix  of  eigenvectors  to  rotate 
it  back  into  the  original  state  space.  It  is 
added  to  the  reference  vector  to  obtain  a sample 
vector. 

This  routine  is  used  in  SIMSEP  for  constructing 
random  actual  state  vectors  relative  to  the 
reference  state  at  the  initial  time  from  the 
input  control  error  covariance.  It  is  also 
used  to  compute  an  augmented  estimated  state 
vectors  from  Che  input  knowledge  covariances  at 
guidance  events.  The  maximum  dimension  a 
covariance  matrix  may  have  is  20  X 20, 


Input/  Argument/ 

Output Common Defini  tion 


Variably  dimensioned 
(NK-;{  (KN+1))  array  of  eigen- 
vectors and  eigenvalues. 

The  (NN  X NN)  square  matrix 


EVEC 


I 


A 
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Input/  Argument/ 

Variable Output Common 


Definition 


NN  I A 

REFVEC  1 A 

SMeVEC  0 A 

IRAN  I A 


Local  Variables: 
Variables 


is  the  so'‘called  modal 
matrix  which  has  eigen- 
vectors as  columns.  The 
(NN  *{•  1)  column  vector  is 
the  (NN  X 1)  vector  of 
eigenvalues. 

Dimensionality  of  the  EVEC 
matrix. 

Reference  state  vector  to 
the  sampled  error  vector  is 
added. 

Sampled  state  vector  which 
is  d: f ferent  from  REFVEC  by 
the  sampled  error  vector. 

Random  number  generator  ust'd. 


Definition 


D Sampled  error  vector  to  be  added  to 

REFVEC.  Equivalences  to  elements  in 
the  N0RK  common. 


Subroutines  Called;  RNUM,  MMAB,  ADD 
Callins  Subroutines;  SIMSEP,  0D,  EPHSHP 
Common  Blocks:  W0RK 

Logic  Flow; 
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DATAS-1 


3.4.2  Subroutine; 
Purpose; 

Method; 

Input /Output ; 

Local  Variables! 
Subroutines  Called; 
Calling  Subroutines: 
Common  Blocks; 

Logic  Plow: 


DATAS 

To  make  calls  to  SDATl  and  SDAI2  in  order  to 
read  the  SIMSEP  input. 

DATAS  is  a macro-logic  routine  which  serves 
exclusively  to  call  SDATl  and  SDAT2  in  suc- 

I 

cession. 

None 

None 

SDATl,  SDAT2 

SIMSEP 

None 


None 


Pages  364  through  374  have  been  deleted. 
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3,4.4  Subroutine ; EPHSMP  (IPRNT) 

Purpose : To  make  random  samples  from  the  input  ephemerls 

planet  error  covariances  and  the  gravitational 
constant  uncertainties. 

Method,:  A standard  Monte  Carlo  sampling  procedure  is 

used  to  form  discrete  errors  in  the  Cartesian 
state  vector  of  the  ephemeris  planets.  This 
sampling  is  made  at  a specified  ^*fioch  and  is 
transformed  into  changes  in  the  Keplerian  orbital 
elements.  The  analytic  ephemeris  is  modified  to 
reflect  these  ephemeris  errors.  Likewise,  errors 
are  computed  for  the  solar  and  ephemeris  planet 
gravitational  constants. 


Input /Output : 
Variable 


Input/  Argument/ 

Output Common  Definition 


SMASS 

I/O 

C 

Solar  gravitational 
constant. 

PMASS 

I/O 

c 

4 

Planetary  gravitational 
constant. 

PLANET 

I 

C 

Hollerith  array  of  planetary 
names. 

CSAX 

I/O 

c 

Analytic  ephemeris  semi- 
major axes. 

CECG 

I/O 

c 

Analytic  ephemeris  eccen- 
tricities . 

CINC 

I/O 

c 

Analytic  ephemeris  inclina- 
tions . 
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Variable  • 

■ Input/  ■ 
OutDut 

Argument/ 

Common 

Def ini tion 

C0t^EG 

I/O 

G 

Analytic  ephemeris  argu- 
ments of  the  ascending 
mode. 

C0MEGT 

I/O 

C 

Analytic  ephemeris  argu- 
ments of  the  apsis. 

CMEAN 

I/O 

c 

Analytic  ephemeris  mean 
anomalies  and  mean  motions. 

GMERR 

I 

c 

One  sigma  uncertainties  in 
the  gravitational  constants. 

XEPH 

I/O 

c 

Ephemeris  planet  state 
vector  at  epoch. 

KEP2 

I 

c 

Flag  array  specifying  the 
ephemeris  planets. 

■j  EPHERR 

f 

I 

c 

Eige  nvec  t or  /e  i ge  nva  lue 
representation  of  the 
ephemeris  error  covariance. 

TEPH 

iKDcal  Variables: 

I 

c 

Epoch  at  which  the  ephemeris 
errors  are  evaluated. 

Variable 

Definition 

GMUS 

Temporary  storage  for  the  solar  gravi- 
tational constant. 

GMD 

Sum  of  sampled  solar  and  planetary 
masses. 

XX 

Temporary  storage  for  the  sampled 
Cartesian  ephemeris  planet  state. 

EL 

Temporary  storage  for  the  sampled 
orbital  elements. 

-Subrou titles  Called: 


EUUM,  CSAtlP,  C0NIC,  C0PY,  ZER0M 
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Calling  Subroutines: 


SIMSEP 


Common  Blocks; 


C0NST,  DYN0S,  EPHM,  Sm,  ISim,  W0RK 


Page  379  has  been  deleted. 
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3,4.5  Subroutine : ERRSMP 

Purpose : To  make  random  samples  from  input  SEPS  parameter 

errors,  tbrust  biases  and  thrust  process  noise 
in  order  to  formulate  actual  values  for  these 
parameters  used  during  the  propagation  of  an 
actual  trajectory. 

Methods:  A standard  Monte  Carlo  sampling  procedure  is  used 

to  compute  random  errors  which  are  added  to  the 
reference  values  to  foxvi  "actual"  parameter 
values. 

Input /Output; 

Input/  Argument/ 

Variable Output Common Definition 


SCMASS 

I/O 

C 

Initial  S/C  mass. 

ENGINE (10) 
(=EXHVEL) 

I/O 

c 

Thrust  exhaust  velocity. 

ENGINE (1) 
(=P0WERO) 

I/O 

c 

Electric  power  at  1.  A.U. 

ENGINE (11) 
C-THREFF) 

I/O 

C 

Thruster  efficiency. 

ENGINE (15) 
(=CRA) 

I/O 

C 

Radiation  pressure  coeffi- 
cient. 

THRUST 

I/O 

c 

Thrust  control  array. 

TN0ISE 

0 

c 

Thrust  control  noise. 

GTAUl 

0 

c 

Thrust  control  noise  time 
correlation  coefficients 
for  the  first  process. 
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ERRSMP«2 


Variable 

Input/ 

Output 

Argusaent/ 

Common 

Eefiaition 

GTAU2 

0 

C 

Thrust  control  noise  time 
correlation  coefficients 
for  the  second  process* 

SGERR 

I 

c 

SEPS  parameter  errors. 

TCERR 

I 

c 

Thrust  control  biases. 

TVEER 

I 

c 

Time  varying  thrust  control 
errors.  ‘ 

jmx 

I 

c 

Total  number  of  active 
thrust  phases. 

JMIN 

I 

c 

Thrust  phase  number  for  the 
first  active  phase 

Subrout iuBB 

Called : 

SHUM 

Calling  Subroutines: 

SIMSEP 

CoMaon  Blocks; 

C0KST,  DYN0S, 
TRAJ2,  W0RK 

SIMl,  ISIMl,  TIME,  TRAJl, 

ERRSMP-3 


Logic  Flow: 


Sample  SCERR  to 
Form  SCMASS,  EXHVEL 
P0WERO,  THREFF,  CRA 




Sample  TCERR  for 
Thrust  Control  Biases 
To  Form  THRUST 


Sample  TVERR  for  Thrust 
Process  Noise  and  Correlation 
Times  to  Form 
TN0ISE,  GTAUl  and  GTAU2 


RETURN 
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EXGUID-1 


3,4»6A  Subroutine ; EXGUID  (XA,  DELTAU,  IMAN,  IPEmT) 

it 

Purpose;  To  execute  coimnanded  thrust  control  changes  or 

impulsive  delta-velocity  corrections  which  have 
been  computed  by  the  guidance  algorithta. 

Method:  For  a low  thrust  guidance  event,  the  actual 

thrust  controls  are  changed  according  to  the 
commanded  corrections  computed  by  the  guidance 
algorithm.  These  updated  thrust  controls  still 
reflect  thrust  biases  which  were  determined  as 
random  samples  from  the  input  error  sources. 

For  an  impulsive  guidance  event , the  commanded 
delta-velocity  is  corrupted  by  randomly  sampled 
execution  errors  and  is  then  added  to  the  actual 
state  vector  as  an  instantaneous  velocity  change. 


Input/Ouvput : 


Input/  Argument/ 

Variables  Output Common 


Definition 


XA  I/O  A 

DELTAU  I A 

IMAN  I A 

IPRKT  I A 

EXVERR  1 C 

THRUST  I/O  C 


Actual  s/c  state  vector. 

Commanded  thrust  control 
correction  or  delta- 
velocity  change. 

Number  of  the  current 
guidance  event. 

Print  output  flag. 

Impulsive  maneuver  execu- 
tion errors. 

Thrust  control  array. 
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EXGUID-2 


Variable 

Input/ 

Output 

Argument/ 

Common  Definition 

NTC 

I 

C Number  of  active  thrust 

controls. 

IGL 

I 

C Guidance  law  specifica- 

tion flag. 

Local  Variables: 

■ 

Variable 

Definition 

EDVM 

Magnitude  of  the  commanded  delta- 
velocity  correction. 

AUVh 

Magnitude  of  the  actual  delta - 
velocity  correction. 

UEDV 

Unitized  estimated  delta -velocity 
vector. 

AE 

Angle  measured  in  the  ecliptic  plane 
from  the  positive  X-axis  to  the  pro- 
jection of  the  commanded  delta-velocity 
correction. 

BE 

Angle  measured  out  of  the  ecliptic 
plane  to  the  coonnauded  delta -velocity 
correc tion. 

AA 

Angle  measured  in  the  ecliptic  plane 
from  the  positive  X-axis  to  the  pro- 
jection of  the  actual  delta-velocity 
correction. 

BA 

Angle  measured  out  of  the  ecliptic 
plane  to  the  actual  delta-velocity 
correction. 

Subroutines  Called;  VECHAG,  UNITV,  RNUM,  ZER0M,  ADD,  SET,  MAT0UT,  C0PY 


Galling  Subroutines; 
Common  Blocks; 


SIMSEP 

cdNST,  DYH^S,  lASTM,  SIMI,  ISIMl,  SIMLAE,  ST^REC,TRAJ1 
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Loeic  Flow: 


EXGUID 


EXGUID- 3 


RETURN 


1GL;0 


EDVM  = i!  DELTAU  | 


EDVM: SMALL 
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GUIDMX-1 


3.4.6B  Subroutine:  GUIDMX  (HI,  THETA,  ETA,  GAMI-IA,  NG,  HT,  IGUID, 

IMAK,  C0NWT) 

Purpose:  To  calculate  the  guidance  matrix  used  by  the 

linear  guidance  algorithm. 

Method:  The  guidance  matrix,  P , is  computed  from  tra- 

jectory sensitivities  evaluated  about  the 
reference  trajectory  according  to  the  guidance 
policy  specified  during  input.  The  computational 
steps  in  formulating  P are  discussed  in  the 
Analytic  Manual,  Section  7.3,1.  Once  the  guid- 
ance matrix  has  been  determined,  it  is  stored 
and  used  on  successive  Monte  Carlo  cycles,  thus 
eliminating  the  need  to  re-evaluate  trajectory 
sensitivities. 


Input /Output: 

Variable 

PHI 

THETA 

ETA 

GAMMA 

NO 

NT 

IGUID 


Input/ 

Output 

I 

1 

I 

0 

I 

I 

I 


Argument/ 

Common Definition 


A 

A 

A 

A 

A 

A 

-A 


State  to  state  transition 
matrix,  § , 

Control  variable  to  state 
component  transition  matrix, 

0 . 

u 

State  to  target  variable 
transformation  matrix, 

Guidance  matrix,  T* 

Number  of  control  va^riables. 

Number  of  target  variables. 

Guidance  maneuver  type  flag. 
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GUIDMX-2 


Input/  Argument/ 

Variable  Output Common 


Definition 


BIAN  I 


A Guidance  event  number. 


C0HWT  I 


A Weighting  factors  for  the 

control  variables. 


Local  Variables! 


Variable 


Definition 


TMXl 

TMX2 

TMX3 


Temporary  matrices  storing 
intermediate  calculations. 


Subroutines  Called:  GENINV,  MMAB,  MPAK,  SCALE 

i 

Galling  Subroutine:  REFTRJ 


Common  Blocks 


Wone 


388 


LGUID-1 


3.4.7  Subroutine:  LGUID  (SE,  IMAN,  IPRNT,  DELTAU) 

Purpose;  To  compute  low  thrust  or  impulsive  guidance 

corrections  using  a linear,  non-iterative 
guidance  law. 

Method;  Using  the  linear  guidance  matrix,  P , formu- 

lated in  GUIDMX,  LGUID  computes  a set  of  law 
thrust  or  impulsive  corrections  according  to 
the  matrix  equation 


Au  = P , 

where  f is  the  state  vector  difference 
between  the  estimated  and  reference  trajectory 
state  at  the  guidance  point. 


Input /Output; 

Input/  Argument/ 

Variable Output Common Definition 


XE 

I 

A 

Estimated  S/C  state  vector. 

IMAN 

I 

A 

Number  of  the  current  guid- 
ance event.’ 

IPKNT 

I 

A 

Print  output  flag. 

DELTAU 

0 

A 

Output  vector  of  low  thrust 
or  impulsive  velocity  cor- 
rections . 

shat 

I 

C 

Saved  guidance  matrix  pre- 
viously computed. 

l^EC 

I 

C 

Number  of  control  variables 

RXQE 

I 

C 

Reference  trajectory  state 
vector  at  the  guidance 
point. 
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, L6UID-2 


Ideal  Variables; 

Variable 

DICE 

GiarlMA 

EDU 

Subroutines  Called; 
Calling  Subroutines! 
Connnon  Bloclrs: 

Logic  Flow: 


t 


Definition 


Deviation  of  the  estimated 
state  vector  relative  to 
the  reference  trajectory  at 
the  guidance  point . 

Guidance  matrix,  P . 

Temporary  storage  for  the 
computed  control  correction. 


C0PY,  MMAB,  SUB 
SIMSEP 

lASTM,  STMl,  ISIMl,  SIMIAB,  STC^REC,  TIME,  W0RK 


None 
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NiGUID-l 


3.4.8  Subroutine:  NLGUID  (XE,  IMAN,  IPRNT,  DELIAU,  ICNVEG) 

Purpose:  To  compute  low  thrust  or  impulsive  guidance  cor- 

rections using  a nonlinear  guidance  algorithm. 


Method: 


INPUT /JUTPUT: 
VARIABLE 


The  estimated  state  is  propagated  to  the  designated 
target  time  where  target  errors  relative  to  the 
reference  target  conditions  are  evaluated.  State 
variations  with  respect  to  guidance  controls  are 
computed  with  the  estimated  trajectory  propagaLlon. 
Prom  the  target  errors  and  the  resultant  sensitiv- 
ity matrix,  a linear  control  correction  is  calcu- 
lated and  applied  as  an  update  to  the  current  con- 
trols. This  process  is  repeated  until  the  target 
errors  are  within  specified  tolerances.  If  the 
target  tolerances  are  not  satisfied  after  NMAX 
iterations,  further  guidance  corrections  for  the 
current  Monte  Carlo  mission  are  aborted  and  the 
mission  is  ended.  A more  complete  discussion  of 
the  nonlinear  guidance  problem  and  the  method  of 
solution  which  has  been  implemented  here  is  given 
in  the  Analytic  Manual,  Section  7.3.4. 


INPUT/  ARGUMENT/ 
OUTPUT  COMMON 


DEFINITION 


XE 


I 


A Estimated  S/C  state  vector. 


IMAN 


I 


A Number  of  the  current  guidance 

event. 


IPBNT  I A Print  output  flag. 

DELTAU  0 A Computed  low  thrust  or  impulsive 

control  corrections. 


ICNVEG 


T0L 


0 A Convergence  flag. 

- 0,  No  convergence  after  ITMX 
iterations  or  after  the  quadratic 
error  function,  Q,  has  increased 
on  three  successive  iterations. 

= 1,  Weak  convergence  after  ITHX 
iterations  and  Q being  less  than 
AOK. 

= 2,  Strong  convergence  (Q  & 1). 

1 C Array  of  target  error  tolerances 

■used  in  computing  the  quadratic 
error  function. 
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NI.GUID-2 


VmiA^LE 

IGL 

ITMX 

A0K 

lEPH 

NTPL 

lilTAR 

NTC 

TGE 

TTAR 

LSTAR 

XSARG 

SMAT 

G0NWT 

THRUST 

STHRT2 

RXTAR 

UHTAR 


IHHJT/  ARGUMENT 

OUTPUT  COMMON  DEEINITIQM 


I 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


1 

I 

I 

I 

I 

I 


I 


C Flag  diisignating  the  type  of 

guidance  correction  to  be  computed. 
If  IGL  = +2,  the  guidance  i-s  low 
thrust.  If  IGL  = -2,  the  guidance 
is  impulsive. 

C Maximum  number  of  guidance  itera- 

tions allowed,  Input  as  NMAX)  . 

G Weak  convergence  tolerance. 

C Code  for  the  ephemeris  body. 

C Code  for  the  target  body. 

C Number  of  target  variables, 

C Number  of  control  variables. 

C Time  of  the  guidance  event. 

C Designated  target  time. 

C List  of  target  variable  codes. 

G Reference  trajectory  target  con- 

ditions at  the  designated  target 
time. 

G Stored  sensitivity  matrix. 

C Control  variable  weights, 

G Array  of  thrust  controls. 

C Stored  array  of  estimated  thrust 

controls. 

C Reference  trajectory  state  at  the 

designated  target  time, 

G Conversion  factor  which  convert 

target  variables  from  internal  to 
e:cternal  units. 

C Maximum  delta -velocity  magnitude 

change . 


DVMXN 
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WLGUID-3 


INPUT/  AilGUMENT 

VARIABLE OUTPUT  COMMON  DEFINITION 


IJH 

I 

c 

PHI 

0 

C 

THETA 

0 

c 

LOCAL  VARIABLES; 
VARIABLE 

DEFINITION 

Array  of  indices  which  identify 
the  position  in  the  THRUST  array 
of  the  active  controls. 

State  to  state  transition  matrix 
between  TGE  and  TTARG. 

Controls  to  state  transition  matrix 
between  TGE  and  TTARG. 


WW  Weighting  matrix  used  in  formulating  the  quad- 

ratic error  function.  WW  is  diagonal  with  the 
reciprocal  target  tolerances  squared  for  the 
non-zero  entries. 

XXE  Estimated  trajectory  state  vector  at  TST0P- 


ITER 


Current  iteration  counter. 


Q2  Value  of  the  quadratic  error  function  evaluated 

on  two  previous  iterations. 

Q1  Value  of  the  quadratic  error  function  evaluated 

on  one  previous  iteration. 


QO 


Current  value  of  the  quadratic  error  function. 


ETA 


Transf oriiiation  matrix  mapping  differential  state 
variables  into  differential  t.^rget  variables. 


EDV 


Delta -velocity  guidance  correction  at  the  cur- 
rent iteration. 


EDU 


Delta-thrust-control  guidance  correction  at  the 
current  iteration. 


TARGX  Target  variables  evaluated  on  the  estimated 

trajectory  at  TST0P. ; 

TARERR  ■ Target  error  at  TST0P. 


GAMMA 


Guidance  matrix  which  maps  target  errors  into 
control  variables. 


Subroutines  Called;  ZER0M,  MAT0UT,  C0PY,  SET,  MMAB,  GENINV,  VECMAG 

SCALE,  ADD,  THC0MP,  TC01iP,  SUB,  MMATBA,  EC0MP, 
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NLGUID-4 


Calling  Subroutines;  SIMSEP 

Common  Bloeksi  C0NST,  TRAJl,  TRAJ2,  SIMl,  ISIMl,  TlilE,  (BLAHK) 


Logic  Flow; 
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NLGUXD-5 


IMITIALIZATION 

AND 

SET-UP 


TC0MP 


Compute  Target  Variables  On 
The  Estimated  Trajectory: 


Compute  Quadratic  Error 
Function: 

Qo  = Ctarerr]'^  * tww  1* 
rTAHERRl 


NLGUID-6 


Yes 

Strong  Convergence 


ICNVEG  = 2 


QO  < No 

a0k  *^2,^;;;;;: 

V.  Sence  _ 


IGKVEG  = 0 


ICKVEG  = 1 


RETURN 


DIVERGENCE 

" ^Tno 


ITER> 

ITMX 


EC|iMP 

Compute 

Transfonna  tion 
Matrix;  EP 


RETUKN 


Impuisive 


Low  Thrust 


Compute  Guidance  Matrix: 
GAMMA 


Compute  Guidance 
Matrix:  GAl'dHA 


EDtf  = [gam]  *[tARERR] 


XE  - XE  EDV 


1 EDU  = [gamma] 

* [ tarerr] 



f 

Pages  396  through  402  have  been 


deleted 
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0D-1 


3.4.9A  Subroutine;  0D  (XA,  XE,  IMAK,  IPRNT) 


Purpose; 


r-.y 

!l 


Method; 


Input/Output i 


Variable 


XA 


To  estimate  the  s/c  state  vector  and  parameters 
which  have  been  augmented  to  the  state  at  a 
guidance  event. 

Since  an  explicit  orbit  determination  process 
and  measurement  models  are  not  included  in 
SIMSEP,  0D,  in  'effect,  performs  the  state  esti- 
mation function,  A knowledge  covariance,  which 
has  been  transformed  into  an  eigenvector/ 
eigenvalue  representation,  is  randomly  sampled 
to  form  an  error,  C in  the  estimated  state 

vector  relative  to  the  actual,  i.e,,  - 

E 

Xg  - X^.  If  parameters  such  as  ephemeris  errors, 
thrust  biases,  etc,,  have  been  augmented  to  the 
six-component  Cartesian  state,  estimated  errors 
for  these  parameters  are  simultaneously  computed 
by  sampling  an  augmented  knowledge  covariance* 

The  formulated  error  vector  is  added  to  the 
corresponding  actual  values  to  define  an  estimated 
state  and  estimates  of  the  augmentation  parameters 
to  be  used  In  calculating  guidance  corrections. 


Input/ 

Output 


Argument/ 

Common 


Definition 


A 


Actual  s/c  state  vector 
(position  and  velocity). 
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C5d-2 


Input/ 

Variable  Output 

Argument/ 

Common 

Definition 

XE 

0 

A 

Estimated  s/c  state  vector 
(position  and  velocity). 

IMAN  ‘ 

I 

A 

Number  of  the  current  guid- 
ance event. 

IPRNT 

I 

A 

Print  output  flag. 

BUM 

I 

C 

Array  of  eigenvector  and 
eigenvalues  corresponding 
to  the  augmented  knowledge 
covariance . 

ENGIHE(l) 

( = E0WERO) 

0 

C 

Estimated  electric  power  at 
1 A.U. 

SP03 

I 

c 

Saved  reference  value  of 
the  electric  power  at  1 

A.U. 

ENGINE (10) 

C = BXHVEL) 

0 

c 

Estimated  thrust  exhaust 
velocity. 

SEXV3 

I 

c 

Saved  reference  value  of 
the  thrust  exhaust  velocity 

ENGINE  CU) 

( = THEEPF) 

0 

c 

Estimated  thruster  effi- 
ciency. 

STEFIi’3 

I 

c 

Saved  reference  value  of 
the  thruster  efficiency. 

ENGINE (15) 
( = GEA) 

0 

c 

Estimated  radiation  pressur 
coefficient. 

SGRA3 

I 

c 

Saved  reference  value  of 
the  radiation  pressure. 

SCMASS 

0 

c 

Estimated  SEPS  mass. 

EMGE 

I 

G 

Reference  SEPS  mass. 

THRUST 

0 

C 

Estimated  thrust  control 
array. 

STHRT3 

I 

C 

Saved  reference  thrust 
control  array. 
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0D-3 


:iablG 

Input/ 

Output 

Argument/ 

Common 

Definition 

KfilM 

I 

C 

Dimension  of  the  augmented 
knowledge  covariance. 

lEEH 

I 

C 

Ephemeris  planet  number 
for  the  current  knowledge 
covariance. 

NEP2 

I 

c 

Active  actual  ephemeris 
planet  number. 

SM&SS 

I/O 

c 

Estimated  solar  gravita- 
tional constant. 

PMASS 

I/O 

c 

Estimated  planetary  grav- 
itational constant. 

XEPH 

I/O 

c 

Estimated  ephemeris  planet 
Cartesian  state  vector. 

GMERR 

I 

c 

Solar  and  planetary  gravita- 
tional constant  uncertain- 
ties. 

CSAX 

0 

c 

Estimated  semi -major  axis 
for  the  ephemeris  planet. 

CECG 

0 

c 

Estimated  eccentricity  for 
the  ephemeris  planet. 

CINC 

0 

c 

Estimated  inclination  for 
the  ephemeris  planet. 

G0MEG 

0 

c 

Estimated  longitude  of  the 
ascending  node  for  the 
ephemeris  planet. 

C01-IEGT 

0 

c 

Estimated  longitude  of 
periapsis  for  the  ephemeris 
planet. 

GMEAK 

0 

c 

Estimated  mean  anomaly  for 
the  ephemeris  planet. 

k 
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Subroutines  Called; 


Calling  Subroutines; 


Gonanon  Blocks; 


ZERCSM,  GSAMP,  C0PY,  C0NIC 
SIMSEP 

C0NST,  TRAJl,  EPHEM,  TIME,  SIMl,  ST0REC,  W0RK,  ISIMl 
(BIAKK) 


s 


Compute  INDEXl 


— 

CSAMP 

Construct  Actual  Aupnented 

Sample  6k6  Knowledge 

State  Vector^  A3A, 
According  To  'Bie 

Covariance  And  Form 

Dimension  A.nd  Parameters 

Estimated  Trajectory 

Specified  By 

State  Vector:  XE 

RETURN 


CSAMP 


Sample  x'lOiM) 

Augmented  SSiowledge 
Covariance  To  Rorm  The 
Augmented  Estimated 
State  Vector:  AXE 


407 -B 


0PSTAT-1 


3.4.9B  Subroutine;  0PSTAT 

Purpose:  To  output  statistics  evaluated  during  the 

Monte  Carlo  mission  simulations. 

Method:  After  completion  of  Monte  Carlo  cycles  in 

SIMSEP,  0PSTAT  transforms  variances  and 
covariances  which  characterize  the  statistics 
of  the  "real  world"  trajectorits  into  standard 
deviations  and  correlation  coefficients.  The 
standard  deviations,  correlations,  and  means 
are  printed  as  a part  of  the  standard  SIl^EP 
output  whenever  the  number  of  Monte  Carlo 
cycles  is  greater  than  one.  Arrays  of  these 
numbers  are  also  punched  (if  requested  by  the 
user)  in  a format  ready  to  initialize  a sub- 
sequent SIMSEP  run. 

Input /Out put ; 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

KGUID 

I 

C 

Number  of  guidance  events 
occurring  on  'the  mission. 

NSAMP  (i) 

I 

C 

Number  of  Monte  Carlo  cycles 
executed  in  accumulating 
statistics  for  i*"^  guidance 
events . 

GCC0V(i) 

I 

c 

Control  error  covariance 
and  vector  mean  evaluated 
at  the  i^^  guidance  event. 

GMC0V(i) 

I 

c 

S/C  mass  variance  and  mean 
evaluated  at  the  i^^  guid- 
ance event. 

407-C 


^^3r3TAT-2 


Input/ 

Variable Output 


Argument/ 

Common 


Definition 


DVC0V(i)  I 


DVMAGS  (i)  I 


CNC0V(i)  I 


NTC(i)  I 

TGC0V(i)  I 

TMC0V(i)  I 

TERG0V(i)  I 

NTAR(i)  I 

MG(i)  I 

ENDC0V  I 

AMASS  I 


C Delta-velocity  covariance 

and  vector  mean  evaluated 
for  impulsive  maneuvers  at 
the  i^“  guidance  event* 

C Delta-velocity  magnitude 

variance  and  mean  for 
impulsive  maneux’ers  at  the 
guidance  event. 

C Thrust  control  correction 

covariance  and  means 
evaluated  for  low  thrust 
maneuvers  at  the  guid- 
ance event. 

C Number  of  low  thrust  con- 

trols active  for  the  i^^ 
guidance  event. 

C Control  error  covariance 

and  vector  mean  evaluated 
at.  the  target  time  on  the 
i guidance  event. 

C S/C  mass  variance  and  mean 

evaluated  at  the  target 
time  on  the  i^^  guidance 
event. 

C Target  error  covariance  and 

means  evaluated  at  the  tar- 
get time  on  the  guidance 
event . 

C Ihjmber  of  target  variable 

for  the  i*^^  guidance  event, 

C Number  of  Monte  Carlo  cycles 

executed  in  accumulating 
statistics, 

C Control  error  covariance 

and  vector  mean  evaluated  at 
the  trajectory  end  time 
(TEND) , 

C S/C  mass  variance  and  mean 

evaluated  at  the  trajectory 
end  (TEND). 


407 -D 


0PSTAT-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

ADVT 

I 

C 

Delta-velocity  magnitude 
variance  and  mean  evaluated 
for  all  impulsive  maneuvers. 

ATHC0V 

I 

C 

Covariance  of  active  thrust 
c'jntrols  used  throughout  the 
mission  for  all  low  thrust 
maneuvers  executed. 

KATHC 

I 

C 

Dimension  of  the  ATHCOV 
matrix. 

Local  Variables;  None 

Subroutines  Called;  MAT0UT,  SYMOT,  VARSD 

Calling  Subroutines;  SIMSEP 

Common  Blocks : SIMl,  ISIMI,  SIM2,  ISIM2 


Logic  Flow; 


None 


407 -E 


EEPTEJ-1 


I 


. r 
Vi'X..'- 


3.4,90  Subroutine;  REFTRJ 

FurpQgei  Cl)  To  compute  reference  trajectory  condltlonp, 

e.g.,  state,  mass,  sensitivities,  etc.,  at  the 
guidance  points;  (2)  to  evaluate  reference  tra- 
jectory target  conditions  at  designated  target 
times;  and  (3)  to  compute  the  guidance  matrix 
to  be  used  at  linear  guidance  events. 

Method;  REFTRJ  performs  the  trajectory  calculations 

necessary  whenever  INREF  is  read  as  zero  during 
the  $SIMSEP  namelist  input.  These  calculations 
are  done  by  repetitively  calling  either  the  TRAJ 
overlay  or  the  THC0MF  subroutine.  In  addition, 
REFTRJ  prints  and  punches  the  reference  trajec- 
tory data  so  that  they  may  be  used  to  initialize 
subsequent  SIMSEP  runs  (with  IIJREF  = 1). 


Input/Outputt 

Input/  Argument/ 

Variable  Output Common Definition 


TGE 

I 

c 

Epoch  of  a guidance  event. 

TTAR 

I 

c 

Designated  target  epoch. 

NGUID 

I 

c 

Number  of  guidance  events. 

KTAR 

I 

c 

Number  of  target  variables. 

NTC 

I 

c 

Number  of  controls. 

KTPL 

I 

c 

Target  planet  code. 

IGL 

I 

c 

Guidance  law  flag. 

lstar 

I 

c 

List  of  target  variable 
codes. 

Input/ 

Variable  Output 


RXGE  0 

HUGE  0 

RXTAR  0 

EMXAR  0 

XTARG  0 

XEND  b 

MEND  0 

SKAT  0 

PHI  0 

THETA  0 


Iiocal  Variables: 
Variable 
ETA 

GAMMA 

TMXl 


Subroutines  Galled:  C0P?,  : 

Calling  Subroutines;  SIMSEP 


REFTRJ-2 
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REFXRJ-3 


Gotnmon  Blocks;  C0NST,  EPHEM,  lASTH,  SIMl,  ISIMl,  SIMLAB,  TIME, 

TRAJl,  TRAJ2,  (BLAHK) 
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REFTRJ-4 


Logic  Flow: 


REFTRJ 


OVERLAY  (TRAJ) 

Propagate  Reference  Trajectory  To 
Determine  RXGE,  RMGE,  XEND,  MEND 


THC0MP,  TC0MP,  EC0MP 

Compute  PHI,  THETA, 
RXTAR,  RMTAR,  XTARG,  and  ETA 


|X6l1  I^Q 

1 > ^ 


smat  = [eta]  * [theta] 


GUIDMX 


SDATl-1 


3.4.9D  Subroutine ; SDATl 


Purpose; 


Method ; 


Remarks ; 


To  read  input  data  from  the  $SIMSEP  namelist  and 
to  initialise  the  trajectory  simulation  mode. 

Once  the  default  values  have  been  initialized,  the 
$SIMSEP namelist  is  read  from  input.  Names,  dimen- 
sions, and  definitions  for  variables  contained  in 
$SIMSEP  are  discussed  in  the  User's  Manual  (Section 
2.4.  page  37) . The  input  data  are  processed  and 
stored  in  common  blocks  so  that  they  may  be  used  by 
Monte  Carlo  cycle  logic  in  SIMSEP.  Variables  con- 
tained in  this  namelist  control  the  degree  of  data 
preparation  and  computational  operations  performed 
within  the  main  cycle  of  the  program. 

Many  of  the  variables  appearing  in  SDATl  are  initial- 
ized from  namelist  with  units  specified  in  the  User's 
Manual,  Before  they  are  transmitted  to  other  routines 
and  used  by  the  program,  they  are  converted  to  In- 
ternal units  which  are  kg,  kw,  km,  sec,  km/sec,  and 
radians . 


Input /Output : 

Input/  Namelist/ 


Variable 

Output 

Common 

Definition 

A0K 

I/O 

N/C 

Backup  convergence  tolerance 
for  weak  convergence  t»st. 

CPMA 

I/O 

N/C 

Computer  processing  time  limit 
for  the  current  SIMSEP  run. 

DPMXN 

I/O 

N/C 

Maximum  delta-velocity  magni- 
tude step. 

INREF 

I/O 

N/C 

State  vector  and  trajectory 
parameter  read -in  flag. 

I0UT 

I/O 

N/C 

Print  output  flag. 

IPUNCH 

I/O 

N/C 

Punch  output  flag. 

IRAN 

I/O 

N/C 

Random  number  seed. 

NCYCIE 

I/O 

N/C 

Number  of  Monte  Carla  cycles 

to  be  run. 
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Input/Output ! 

Variable 

NGUID 

EPHSRR 

©ERR 

NEP2 

XEPH 

PG 

TEPH 

EXyERB 

SGERR 

TCERR 

TVERR 

ADVX 

EHDC^ 

AMASS 

ATHC0V 


Input/ 

Output 

Namelist/ 

Common 

Definition 

I/O 

N/C 

Number  of  guidance  events 
to  be  executed  on  each 
Monte  Carlo  mission  simu- 
lation. 

I/O 

N/C 

Ephemeris  error  matrices 
for  the  ephemeris  bodies. 

I/O 

N/C 

Gravitational  constant 
errors. 

I/O 

N/C 

Active  ephemeris  planet 
numbers  ^ 

0 

C 

Cartesian  state  of  the  ephera- 
eris  body  at  TEPH. 

I/O 

N/C 

S/C  control  error  matrix. 

I/O 

N/C 

Epoch  of  evaluation  of  the 
ephemeris  errors. 

I/O 

N/C 

Midcourse  velocity  correc- 
tion execution  errors. 

I/O 

N/C 

SEP  and  S/C  errors. 

I/O 

N/C 

Thrust  bias  errors. 

I/O 

N/C 

Thrust  process  noise. 

I/O 

N/C 

Total  delta -velocity  magni- 
tude statistics. 

I/O 

N/C 

Accumulated  S/C  control  error 
statistics  at  TEND. 

I/O 

N/C 

Accumulated  S/C  mass  statis- 
tics at  TEND. 

-I 

I/O 

N/C 

Accumulated  total  thirust 
control  statistics. 

I/O 

N/C 

Reference  trajectory  state 
vector  at  TEND. 

SEND 
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SDATl-3 


Input /Output ! 


Variable 

Input/ 

Output 

Namelist/ 

Common 

Definition 

MEND 

I/O 

N/C 

Reference  S/C  mass  at  TEND. 

SPFIMP 

I/O 

N/C 

Chemical  propulsion  system 
specific  impulse. 

DVMB0T 

I/O 

N/C 

Chemical  propulsion  system 
mass  flof?  rate. 

MC 

I/O 

N/C 

Number  of  previous  Monte 
Carlo  cycles. 

KATHC 

I/O 

N/C 

Dimension  of  the  ATHCCJV 
matrix. 

JMAX 

0 

G 

Number  of  the  last  active 
thrust  control  phase  between 
trajectory  times  TSTART  and 
TEND. 

JMIN 

0 

C 

Number  of  the  first  active 
thrust  control  phase  after 
TSTART. 

Local  Variables: 

None 

Subroutines  Called: 

C0PY, 

EIGENV,  EPSBM, 

MAT0UT,  SDVAR,  ZER0M. 

Galling  Subroutines;  DATAS 

Common  Blocka;  C0M,  CYCLE,  DYH0S,  EDIT,  EPHEM,  SIMI,  ISIMl,  SIM2, 

ISIM2,  SIMLAB,  TIME,  TRAJl,  TRAJ2. 


Logic,  Flow; 


SDATl-4 


Logic  Flow: 


r* 


-tiratTT*’wnTrinffTi 


Initialize  Default  Values 
for  JJSIMSEP  Variables 


SDVAR 


Convert  PG  Correlation 
Coefficients  To  a 
Covariance  Matrix 


EIGENV 


Transforta  PG  Into  An 
Jiaenvec tor /Eigenva lue 
Repre sen tat ion 


SDVAR 


Convert  EPHERR  Correlation 
Coefficients  Into  A 
Covariance  Matrix 


EIGENV 


Transform  EPHERR  Into  An 
Eigenvec  t or /El genva lue 
Representation 


-J1 


Convert  SCERR,  TCERR,  and 
TVERR  To  Internal  Units 
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3.4. 9E  Subroutine:  SDAT2 


Purpose: 


Method ; 


Remarks: 


Input/Output; 


Variable 


To  read  input  data  from  the  $GUIh  namelist  and  to 
define  the  guidance  philosophy,  guidance  control 
variables,  targets,  etc.,  at  each  guidance  event. 

Since  hhe  number  of  guidance  events  considered  for  a 
given  SIMSEP  run  has  been  specified  by  the  NGUID  vari- 
able which  was  read  in  SDATl,  the  SDAT2  subroutine 
reads  the  $GUID  namelist  NGUID-times.  Names,  dimensions, 
default  values,  and  definitions  for  the  variables  con- 
tained in  $GUID  are  discussed  in  the  User’s  Manual 
(Section  2.4,  page  37).  The  input  data  from  $GUID  are 
stored  in  common  blocks  for  subsequent  usage  during 
the  execution  of  guidance  maneuvers.  The  user  specifies 
through  input  the  type  of  guidance,  duration  of  the 
guidance  event,  target  variables  and  controls. 

Variables  appearing  in  SDAT2  are  initialized  from  name- 
list  in  external  "user"  units.  As  was  done  in  SDATl, 
these  variables  are  converted  to  internal  units  before 
being  transmitted  to  the  rest  of  the  program. 


Input/  Namelist/ 

Output Common Definition 


TGUID 

I 

" 1 

1 Guidance  event  epoch 

TGE 

0 

J 

c J 

XGEEF 

I 

N 

^ Reference  trajectory  state 

p vector  at  the  guidance 

EXGE 

0 

C 

1 point . 

MGREF 

I 

N 

1 S/C  mass  at  the  guidance 

k point . 

EMGE 

0 

C 

i 

S 

I 

N 

1 Sensitivity  or  guidance 

I*  matrix. 

SMAT 

0 

C 

[ 

H 

I 

N 

Array  of  on/off  flags  used  to 
Identify  active  thrust  con- 
trols at  a guidance  event. 

IjH 

0 

C 

Matrix  of  active  control 
variable  indices. 
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Input /Output i 

Variable 

UWATE 

C0NWT 

leoiD 

I6L 

MAX 

ITMX 

HEP 

lEPH 

HTP 

KTPL 

NTAR 

?ITC 

TTARG 

ITAR 

TAEGET 

XTASG 

XTREF 

'rxtar 

MIREF 

EMTAR 

TARiglL 

T0L 

ITARGT 

LSTAR 


Input/ 

Output 

I 

0 

I 

0 

I 

0 

I 

0 

I 

0 

0 

0 

1 

0 

I 

0 

I 

0 

I 

0 

I 

0 

I- 

0 


Namelist/ 

Common Definition 


N 

C 

N 

C 

N 

C 

N 

C 

N 

C 

C 

c 

N 

c 

N 

C 

N 

C 

N 

C 

N 

C 

w 

c 


} 


Control  variable  weights. 


Guidance 


law  flag. 


Maximum  number  of  iterations 
in  the  nonlinear  guidance 
algorithm. 


} 


Ephemeris  planet  number. 


Target  planet  number. 


Number  of  target  variables. 


Number  of  control  variables. 


} 


Target  epoch. 


Target  variables  evaluated 
on  the  reference  trajectory. 


} 

} 


Reference  trajectory  state 
at  the  target  epoch 


S/C  mass  at  the  target 
epoch. 


•) 

»• 


Target  variable  tolerances. 


Target  variable  selection 
flags . 
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SDAT2-3 


Input /Output  t 


input/  Namelist/ 

Variable  Output  Common  Definition 


P IN 

PS  IN 

CXS  I N 

BLANK  0 C 


Augmented  knowledge  error 
covariance  at  a guidance 
event . 


Eigenvectors  and  eigenvalues. 


KDIMEN  I 

KDIM  0 


N ■ 
C 


Dimension  of  the  augmented 
knowledge  covariance. 


KTBR  I 

K5ERR  0 


N 

C 


Option  rlttg  for  computing 
target  errors. 


CC0VG 

6CC0V 

©ISQ/V 

GMC0V 

CNTC0V 

CNO^ 

DVMCOV 

DVGOV 


I 

0 

I 

0 

I 

0 

I 

0 


N 

C 

N 

C 

N 

C 

N 

C 


} 

} 

} 

} 


Accumulated  control  error 
statistics  at  the  guidance 
point. 

Accumulated  S/C  mass 
statistics  at  the  guidance 
point . 

Accumulated  active  thrust 
control  error  statistics. 


Accumulated  delta -velocity 
vector  statistics  at  the 
guidance  event. 


DVMA6  I 

DVMA6S  0 


N 

C 


Accumulated  delta-velocity 
» magnitude  statistics  at  the 
guidance  event. 


CCgJVT  I 

TCCglV  0 


N 

C 


Accxmiulated  control  error 
statistics  at  the  target 
point. 


msccSv  I 

TMCOV  0 

TARC0V  I 

TERO0V  0 


N 

C 

N 

C 


} 

I 


Accumulated  S/C  mass 
statistics  at  the  target 
point. 

Accumulated  target  error 
statistics. 


i 
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SDAT2-4 


Input /Output; 


Input/  Namelist/ 
Variable  Output Common 


Definition 


MSAMP  I 

NSAMP  0 


N 

C 


" 

. 


Number  of  previous  Honte 
Carlo  samples  on  the 
accumulated  statistics. 


MTPH  0 C 


Thrust  phase  number  at  a 
guidu.,je  event. 


ICYCTS  0 G 


Recycle  flag. 


UNT&R  0 G 


Vector  of  target  variable 
conversion  factors. 


Local  Variables; 

Variable 


Definition 


Temporary  storage  for  the 
augmented  knowledge  covar- 
iance matrix. 

Guidance  event  counter. 

Index  marking  the  position  in 
blank  common  after  which  eigen- 
vectors corresponding  to  a par- 
ticular augmented  knowledge  co- 
variance are  stored - 

Index  like  INDEKl  except  it 
marks  where  eigenvalues  are 
stored . 

Subroutines  Called;  C0PY,  EIGENV,  IC0PY,  MAT0UT,  MPAK,  MDNPAK,  SDVAR, 

STML0,  SIMDP,  ZER0M. 

Galling  Subroutines;  DATAS 

Common  Blocks;  CYCLE,  EDIT,  EPHEM,  lASTM,  SIMl,  ISIMl,  SIM2,  ISrM2, 

SIMLAB,  TIME,  TRAJl,  TRAJ2,  (BLANK). 

Logic  Flow; 


PP 

BIAN 
INDEX 1 

INDEX2 


vV.-- i i 


1 


Convert  Accumulated 
Statistical  Data  CCfUVG, 
'CgSV,DVMCCfV,'EARCW,ETG.  Int<| 
Covariance  Matrices  and  Load 
2 Them  Into  Common  Storage  I 

^ I'll  'I  iiiiiii  miiiiiiii  iimTinimiininfr‘"T^^'n~iiwnifMMiQUwiLinia 


Convert  Accumulated  Statistical  Data  THG^V 
And  AFC0V  Into  Covariances  and  Load  Them 
Into  Common  Storage 


I ...  , -t 


SDAT2-6 


i 


1 


3,4plOA 

Purpose; 


Method: 


Remarks 


408 


SET-1 


Subroutine;  SET  (IST0RE) 

To  set  and  store  physical  parameters  (ephetneris, 
gravitational,  etc.)  and  SEPS  parameters  (thrust 
controls,  mass,  exhaust  velocity,  etc.)  needed 
by  the  trajectory  integration  routine  for  generat- 
ing the  actual,  estimated,  and  reference  trajec- 
tories, 

SET  simply  performs  multiple  copy  operations  in 
transferring  the  working  values  used  by  the 
trajectory  integrator  into  designated  storage 
arrays,  SI,  S2  and  S3,  By  calling  SET  with 
IST0RE  equal  to  +1,  +2  or  +3,  the  corresponding 
SI,  S2  or  S3  array  is  equated  to  whatever  is  in 
the  regular  working  arrays.  If  IST0RE  equals  +4, 
all  three  S-arrays  are  set.  When  SET  is  called 
with  IST0RE  equal  to  -1,  -2,  or  -3,  then  the 
working  arrays  are  re-set  to  whatever  is  stored 
in  SI,  S2  or  S3,  respectively. 

: This  routine  is  essential  to  SIMSEP  in  that  it 

allows  the  program  to  use  the  same  trajectory 
integrator  to  evaluate  each  of  the  different 
types  of  trajectories  needed  for  a mission  simu- 


lation 


1 


I 


J 


.1.. 
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SET- 2 


Input: /Out  put; 

Input/  Argunsent/  : 

Variables  Output  CoiTunon Definition 


IST0RE 

I 

A 

Flag  controlling  the  SET 
logic  flo\^. 

ENGINE  (1) 
(-P01‘HRO) 

I/O 

c 

Electric  power  at  1 A,U. 

ENGINE  (10) 
(-EXHVEL) 

I/O 

c 

Thrust  exhaust  velocity. 

ENGINE  (11) 
(=THREFF) 

I/O 

c 

Thruster  efficiency. 

ENGINE (15) 
C=CRA) 

I/O 

c 

Radiation  pressure  coeffi- 
cient. 

SC^iASS 

I/O 

_ c 

SEPS  mass. 

smss 

I/O 

c 

Solar  gravitational 
constant. 

PMASS 

I/O 

c 

Planetary  gravitational 
cons tants , 

NTPHAS 

I/O 

c 

Current  thrust  control 
phase  number. 

XEPH 

I/O 

c 

Ephemeris  planet  state 
vector,  • 

THRUST 

I/O 

c 

Thrust  control  array. 

CSAX 

I/O 

c 

Semi -major  axis  ephemeris 
constants . 

ElIN 

I/O 

c 

Lunar  ephemeris  constants. 

GECC 

I/O 

c 

Eccentricity  ephemeris 
constants. 

CINC 

I/O 

c 

Inclination  ephemeris 
constants . 

C0MEG 

I/O 

c 

Longitude  of  the  ascending 
node  ephemeris  constants. 

410 


SET-3 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

C0MEGT 

I/O 

C 

* Argument  of  the  apsis 
ephemeris  constants. 

CMEAN 

I/O 

G 

Mean  anomaly  ephemeris 
cons tants  * 

SSMl 

I/O 

C 

Stored  solar  gravitational 
constant. 

SSCMl 

I/O 

C 

Stored  SEPS  mass. 

SEXVl 

I/O 

C 

Stored  thrust  exhaust 
velocity. 

STEFFI 

I/O 

C 

Stored  thruster  efficiency 

SCRAl 

I/O 

C 

Stored  radiation  pressure. 

SPOl 

I/O 

C 

Stored  electric  power  to 

1.  A.U, 

SPMl 

I/O 

C 

Stored  planetary  gravita- 
tional constants. 

EXEPHl 

I/O 

C 

Stored  ephemeris  planet 
, state  vectors. 

SSAXl 

I/O 

C 

Stored  semi-major  axes. 

SEMI 

I/O 

C 

Stored  lunar  ephemeris 
constants. 

SECGl 

I/O. 

C 

Stored  eccentricities. 

SINCl 

I/O 

G 

Stored  inclinations* 

S0MEG1 

I/O 

C 

, Stored  longitudes  of  the 
ascending  node. 

S0MGT1 

I/O 

C 

Stored  arguments  of  the 
apsis. 

SMEANl 

I/O 

C 

Stored  mean  anomalies. 

» 

STHRTl 

I/O 

C 

Stored  thrust  controls. 

] J ! 


(Ccnmnent::  Xu  addition 

are  also  corresponding 

Local  Variables; 
Subroutines  Called; 
Calling  Subroutines : 
Common  Blocks: 


1 


i 
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SET-4 


to  these  storage  arrays  and  variables,  there 
S-2  and  S-3  arrays.) 

None 

C0PY 

SIMSEP,  NLGUID 

EPHEM,  SIMl,  ISIMl,  ST0REC,  TRAJl,  TRAJ2 


Store  SMASS,  SCMASS, 
EXHVEL,  P0lffiRO,  THREFF, 
CRA,  NTPHAS,  PMASS, 
XEPH,  CSAX,  EMN,  CECC, 
CINC,  C0>tEG,  C0>iEGT, 
CHEAN,  and  THRUST  into 
the  S-2.  Arrays. 


Store  SMASS,  SCMASS, 
EXHVEL,  P0WERO,  THREFF, 
CRA,  NTPHAS,  PMASS, 
XEPH,  CSAX,  EMN,  CECC, 
CINC,  C0>EG,  C0MEGT, 
CMEAN,  and  THRUST  into 
the  S-3  Arrays* 


RETURN 


Store  SSM2»  SSCH2, 
SEXV2,  STEFF2>  SCRA2, 
SPOl,  SPM2,  SXEPH2, 
SSAX2,  SEMN2,  SECG2, 
SINC2,  S0^iEG2,  S£^IGT2, 
SMEAN2,  SNTPH2,  and 
STHRT2  into  the 
Nominal  Arrays, 


RETURN 
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SPSNTl-1 


3.4. lOB  Subroutine 
Entry  Points! 
Purpose; 

Method; 


Input/Output: 

Variable 

XA 

XE 


SPRNTl  (XA,  XE,  XREFO,  IC,  IMAN) 

SPRNT2,  SPRKT3,  SPRNIA 

To  print  actual,  estimated,  and  reference 
trajectory  data  computed  during  Monte  Carlo 
mission  simulations. 

SPRNTl,  or  one  of  its  various  entry  points, 
is  called  from  SIMSEP  whenever  printout  of 
trajectory  information  is  desired,  A call 
to  SPRNTl  results  in  the  "Output  Data  for 
the  Actual  Trajectory  Initialization".  (See 
the  sample  case  in  the  User's  Manual,  Pages 
119  through  132.)  SPRNT2  generates  the 
"Output  Data  for  Guidance  Event"  which 
includes  printout  for  actual,  estimated, 
and  reference  trajectory  data.  SPRNT3 
generates  the  "Output  Data  at  the  Designated 
Target  Time"  when  KTER  = 1 and  the  corrected 
trajectory  is  propagated  after  a guidance 
event.  At  the  end  of  each  Monte  Carlo  mission 
simulation,  SPRNT4  is  called  to  display  the 
"Monte  Carlo  Mission  Summary". 


Input/ 

Output 

Argument/ 

Common 

Definition 

I 

A 

Current  actual  S/C  state. 

I 

A 

Current  astimated  S/C 

state. 
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SPROTl-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

XREFO 

I 

A 

Current  reference  S/C 
state. 

IC 

I 

A 

Current  Monte  Carlo  cycle 
number . 

IMAN 

I 

A 

Current  guidance  event 
number. 

TCERR 

I 

C 

Thrust  bias  errors. 

SCERR 

I 

C 

S/C  and  SEP  errors. 

GMERR 

I 

C 

Gravitational  constant 
errors. 

GTAUl 

I 

C 

1 Negative  reciprocal  of  the 
r correlation  times  for  the 

GTAU2 

I 

C 

J 

1 thrust  process  noise. 

TN0ISE 

I 

c 

Vector  of  random  thrust 
control  perturbations. 

TGE 

I 

c 

Guidance  event  epoch. 

TTAR 

I 

c 

Target  epoch. 

XTARG 

I 

c 

Reference  target  variables 

UNTAR 

I 

c 

Vector  of  target  variable 
conversion  factors. 

SSGMl 

I 

c 1 

1 Actual,  estimated,  and 

SSGM2 

I 

c 

f reference  S/C  mass. 

SSCM3 

I 

c 

SEXVl 

I 

c *; 

Actual,  estimated,  and 

SESV2 

I 

C 

’ reference  exhaust  velocity 

SEXV3 

I 

c J 

SPOl 

I 

c 1 

1 Actual,  estimated,  and 

SP02 

I 

c j 

r reference  electric  power. 

SP03 

I 

G J 

STEPPl 

I 

c 

1 Actual,  estimated,  and 

STEFF2 

I 

c 

f reference  thruster 

STEFF3 

I 

C J 

efficiency. 

I 


J 


Variable 

SCRAl 

SCRA2 

SCRA3 

STHRTl 

STHRT2 

STHRT3 

SSMl 

SSM2 

SSM3 

SXEPML 

SXEPM2 

SXEPM3 

SPMl 

SPM2 

SPM3 


Local  Variables: 
Variable 


DXE 


DXA 


ELA 

ELE 

ELR 

EMASS 

Subroutines  Called; 
Callliyg  Subroutines 
Conmon  Blocks: 


Lopic  Flow: 
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SPRNTl-3 


Input/  Argument/ 

Output  Conmion  Definition 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


} 

} 

} 

} 


Actual,  estimated,  and 
reference  radiation  pressure 
co-efficient* 

Actual,  estimated,  and 
reference  thrust  controls. 


Actual,  estimated  and 
reference  solar  gravitational 
constant . 

Actual,  estimated  and  refer- 
ence Cartesian  state  for 
the  ephemeris  body  at  TEPH, 


I 

I 

I 


C 

C 

C 


Actual,  estimated,  and  refer- 
ence gravitational  constant 
for  the  ephemeris  body* 


Definition 


Vector  deviation  of  the  estimated 
state  from  the  reference  and/or  the 
actual. 

Vector  deviation  of  the  actual  state 
from  the  reference. 

Keplerian  elements  corresponding  to 
the  actual,  estimated,  and  reference 
Cartesian  states  of  ephemeris  body. 

Actual  S/C  mass  evaluated  at  TEND. 


C0NIC,  SUB 
: SIMSEP 

C0NST,  DYN0S,  EPHEM,  SIMl,  ISIMl,  SIMLAB,  ST0REC, 
TIME,  TRAJl,  TRAJ2,  (BLANK) 

None. 


1 . 


I 


J 


3,4*11  Subroutine 
Purpose ; 

^te  thod ; 


Input /Output ; 

Variable 

XA 

XR 

N‘ 


} 
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STAT-1 


: STAT  (XA,  XR,  R,  Nl,  AC0V,  M,  PC0V) 

To  compute  a covariance  matrix  and  mean, 

recursively,  from  a sequence  of  error  vectors, 
th 

For  the  ^ Monte  Carlo  cycle,  an  error  vector, 
Xj^,  is  computed  as  the  difference  between  an 
actual  and  a reference  vector.  This  error 
.Vector  updates  the  previous  mean  based  on  (M-1) 
samples  according  to  the  equation 

Xj,  = (Xjj  + (M-1)  X JJ_^)/M 

for  M = 1,  2,  3,  The  covariance  matrix  is 

also  updated  by  the  relation, 

Si  “[MK-1-*-  Lvi  Vi] 

^ ^ % 

for  M = 2,  3,  4,  .,,,,  where  is  the  previous 

covariance  matrix  and  C„  the  new  covariance. 


Input/  Argument/  . 

Output  Common Definition 


I 

I 

I 


A 

A 

A 


Actual  sampled  vector. 
Reference  vector. 
Dimension  of  XA  and  XR, 


m. 


I 


A 


HI  - N + 1 


1 


] 
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STAT-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

AC0V 

I 

A • 

A-prior  covariance  matrix 
and  mean*  based  on  M-i 
samples.  This  is  a (KxNl) 
array  with  the  variances 
and  covariances  being 
stored  in  the  first  N- 
columns  and  the  means 
being  stored  in  the  N1- 
columns, 

• 

M 

I 

A 

Number  of  Monte  Carlo  sam- 
ples used  to  formulate  the 
updated  covariance  matrix. 

PC0V 

I 

A 

Updated  output  covariance 
matrix  and  vector  of  means, 
The  storage  is  in  the  same 
format  as  AC0V,  AC0V  and 
PC0V  may,  in  fact,  share 
the  same  Core  locations. 

Variables: 

'Variable 

Definition 

X 

Error 

vector,  X = XA  - XR, 

XX 

Temporary  storage  for  the  new  means. 

XXT 


Temporary  storage  for  the  outer  prod- 
uct or  two  vectors. 


Subroutines  Called: 


SUB 


Callino;  Subroutines ! 

4JWII  I 


Common  Blocks : 


SBISEP 

W0RK 
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THC0MP-1 


3.4.12  Subroutine 
Purpose: 


Method: 


Remarlcs : 


Input/Output: 

Variable 

XS 


: THC0MP  (XE,  TSAVE,  IMAN,  THETA) 

To  compute  the  matrix  of  partial  deviatives  of 
state  coordinates  at  the  target  with  respect  to 
thrust  controls;  namely. 


^ CX,  Y,  2,  X.  Y,  Z) 


u ) J 

n' 


(6xn) 


where  n is  the  number  of  control  variables. 

Small  perturbations  are  forced  to  each  control 
variable  of  concern  and  an  integrated  trajectory 
is  propagated  to  the  target  time*  The  final 
state  vector  of  each  variant  trajectory ' is 
differenced  with  the  standard,  or  nominal, 
state  to  form  numerical  partials. 

This  subroutine  is  used  by  both  the  linear  and 
nonlinear  guidance  subroutines  in  SIMSEP. 
Conversion  of  THC0MP  to  use  augmented  state 
transition  matrices  integrated  during  the  tra- 
jectory propagation  would  principally  affect  this 
routine  and  would  considerably  reduce  the  computa- 
tional expense  of  numerically  differencing. 


Input/  Argument/ 

Output Common Definition 

I A Initial  state  vector  which 

is  to  be  perturbed  in 
computing  the  partials. 
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THC0MP-2 


Input/  - Argument/ 


Variable Output C(  mmon 

XXE  I A 

TSAVE  I A 

IMAN  I A 

THETA  0 A 

THRUST  I/O  C 

IHMAT  ■ I C 

HMAT  I C 

UREL  I C 

VREL  I C 

NTC(5N  I C 


DeEinition 


Final  state  vector  on  the 
standard  as  nominal  trajec- 
tory. 

Trajectory  propagation 
interval  between  the 
guidance  event  and  the 
target  time. 

Number  of  the  current  guid- 
ance event, 

(k)  - matrix  of  partial 
derivatives. 

Thrust  control  array. 

Array  of  indices  that  specify 
the  thrust  controls  which  are 
to  be  perturbed. 

Array  of  thrust  control 
perturbations. 

Target  body  relative  position 
vector  at  the  target  time. 

Target  body  relative  velocity 
vector  at  the  target  time. 

Number  of  perturbing  controls. 


Local  Variables; 
Subroutines  Called; 
Galling  Subroutines: 
Common  Blocks ; 


None 

TRAJ,  C0PY 
LGUXD,  NLGUTD 

C5?fKST,  TRAJi,  TSAJ2,  TIME,  SIMl 


THC0MP-3 


3.5 

Purpose : 
Remarks : 


I . i 
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TRAJ*-! 


Subroutine : TRAJ ' 

To  control  the  overall  trajectory  initialization 
and  propagation. 

Since  TRAJ  is  used  by  the  three  modes,  it  must 
be  capable  of  reproducing  the  same  trajectory 
for  each  mode,  independent  of  the  augmented  state 
form,  event  times  or  print  times.  Special  prob- 
lems arise  when  the  equations  to  be  propagated 
include  the  transition  matrix  or  covariance 
between  events.  For  example,  at  the  beginning 
of  an  event  either  the  transition  matrix  must  be 
reset  to  an  identity  or  an  updated  covariance 
must  be  given  to  TRAJ.  To  solve  these  problems, 
logic  was  incorporated  into  TRAJ  to  make  use  of 
event  logic  in  the  subroutine  PATH  with  an  entry 
point  FLIGHT. 

Beginning  at  the  trajectory  epoch  t^,  the  tran- 
sition matrix  or  covariance  is  initialized  and 
is  propagated  to  the  first  event  (Ej^),  MAPSEP 
logic  returns  to  the  calling  routine  which  per- 
forms its  operations.  Upon  reentering  TRAJ,  the 
transition  matrix  or  covariance  is  again  reini- 


tialized and 


1 


I 
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TRAj-2 


- propagated  from  to  E^*  In  order  to  propa- 
gate the  transition  matrix  or  covariance  from 
Eg  to  and  preserve  the  trajectory  grid,  the 
special  logic  in  TRAJ  calls  FLIGHT  to  propagate 
the  appropriate  matrix  from  to  t^.  Then  the 
spacecraft  state  is  propagated  from  t^  to  t^. 

Now  having  the  state  and  transition  matrix  or 
covariance  at  t^^,  the  appropriate  matrix  is  prop- 
agated to  E^.  This  process  is  continued  until 
all  events  have  been  satisfied. 

Input/Output; 

Input/  Argument/ 

Variable Output Common Definition 

ICALL  I C =1,  initialize  the  trajec- 

tory and  propagate  to 
*■  an  event  or  stopping 

condition, 

= 2,  initialize  the  trajec- 
tory only, 

= 3,  propagate  from  a pre- 
viously defined  point 
in  the  trajectory, 

=1,  propagate  the  state 

and  transition  matrix* 
- 2y  propagate  the  state, 
=3,  propagate  the  state 
and  state  covariance 
matrix. 


INTEG 


I 


C 


PATH 


TRAJ-3 


PLIGHT,  IDENT,  C0PY, 
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TRAJ-4 


Galling  Subroul:inGS ; T^PSEP,  G0DSEP,  SIlISEP 

Common  Blocks;  TRAJ2,  W0RK,  (BIANK),  CfiiNST,  EDIT,  EPHEM,  TIIE, 

TRAJl 


TRAJ-6 


Make  The  ScaLe 
Transition 
Ma  tr ix 

An  Identity: 
Call  IDENT 


INTEG 


Copy  Updated 
Covariance 
Into  Working 
Array 


Reinitialize 
The  Transition 
Matrix 
Differential 
Equation 


Reinitial ize 
The  Covariance 
Differential 
Equation 


TEVKT  = B7G 


^he  Nex^ 
vEvent  t.+L 


Propagate  The 
Transition 
Matrix  Or 
Covariance  To 
+ 1 

Call  FLIGHT 


Redefine  The 
Number  Of 
Equations  And 
Propagate  The 
State  From  tj^ 
ti  to  t +1: 


Reset  Number 
Of  Equations 
And  Copy  All 
Data  To  New 
Locations 


3.5,1  Subroutine: 
Entry  Point' 

Purpose ; 

Method  I 


1 1 i j i 
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DN0ISE-1 


DN0ISE  (T) 

N0ISE 

To  compute  thrust  acceleration  perturbations 
due  to  time-varying  process  noise. 

A vector  of  thrust  control  perturbations , S 
is  computed  during  the  trajectory  integration 
at  the  beginning,  middle,  and  end  of  each  inte- 
gration step.  The  time  correlated  thrust  noise 
is  assumed  to  be  a Gauss -Markov  sequence  accord- 
ing to  the  equation 


$u,.,  = A Su. 

-^+1  -X  -1+1  , 


r > At/T, 


where  A = 


0 


At/T, 


0 


At/T. 


N 


and  At  = - tj^.  The  factors  T^,  T^,  ...j 

T„  are  the  correlation  times  associated  with 
N 

each  stochastic  process,  Su.,  The  vector  S u^ 
is  assumed  to  remain  constant  over  the  interval 


A t with  its  effect  on 


being  diminished 


A2S 


DK0ISE-2 


J 

by  the  exponential  decay  terms  in  A.  is 

a vector  of  independent  random  variables  vrhich 
have  Gaussian  distributions.  The  standard’ 


deviation,  , is  given  by 


_2.At/  ^ 

C^.  = (1-e  <Tu 


in  order  to  satisfy  the  requirement  that  the 


process  be  stationary. 


Input/Output ; 


Input/  Argument/ 

Variable Output  Common Definition 


T 

I 

A 

Current  trajectory  time. 

GTAUi 

I 

C 

Negative  reciprocal  of  the 
correlation  times  for  the 
first  process. 

GTAU2 

I 

C 

Negative  reciprocal  of  the 
correlation  times  for  the 
second  process. 

TVERR 

I 

c 

One -sigma  values  for  the 
time-varying  thrust  control 
errors. 

IRAN 

I 

c 

Random  number  seed. 

TN0ISE 

I/O 

c 

Vector  of  thrust  control 
perturba  tions. 

Local  Variables: 

Variable 

Definition 

T1  • Trajectory  time  at  the  previous  point 

of  thrust  noise  evaluation. 


Variable 

H 

Subroutines  Called; 
Calling  Subroutines; 


I 


A29 


DK^ISE-3 


Definition 


Time  increment  since  the  previous 
thrust  noise  evaluation. 


RNUM 

EP,  SIMSEP 
TRAJl,  TRAJ2 


Common  Blocks: 
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DPHI-1 


3.5.2  Subroutine;  DPHI  (T,  DS,  DSTM,  M,  N,  L0C) 


Purpose: 


To  coiapute  the  time  derivative  of  the  State  Transition 
Ml  trix  (0) 


Me  thod : 


Input /Output ; 
Variable 

Input/ 

Output 

Argument/ 

Common 

% 

Definition 

lAUCDC 

I 

C 

Flag  indicating  the  augmencation 
of  the  STM  and  covariance  Matrix. 

T 

I 

A 

Trajectory  time 

DS 

I 

A 

Independent  variables 

DSTM 

0 

A 

Differential  equations 

M 

I 

A 

Number  of  rows  in  DS  and  DSTM 

N 

I 

A 

Number  of  columns  in  DS  and  DSTM 

LO0 

I 

A 

Routing  flag 

INTEG 

I 

C 

Set  = 1 Propagate  the  State  and 
Transition  Matrix 
Set  = 2 Propagate  the  State 
Set  = 3 Propagate  the  State  and 
State  Covariance 

IRECT  I C Index  used  to  check  whether  the 

current  call  to  DPHI  is  for  rectifi- 
cation purposes  only  (i.e,  IRECT  =4.) 


Local  Variables: 

■ r"  ■"«  

lAUGS  Index  used  to  check  whether  the  P matrix  needs  to  be 

augmented . 


Calling  Subroutines; 
Subroutines  Called; 
Cocimon  Blocks; 


NIMIN 

MglTI^jB  , L0ADM,  GRAVAR 
TRAJ2 


1 I .1  - J 


^32 


DPHI-2 

Logic  Flow; 


Return 


1 


3.5.3 

Purpose 


Method ; 


1 
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❖ 

Subroutine;  EP  (P,  CM.4SS) 

To  compute  the  effect?  i/e  low  thrust  accelera- 
tion vector  and  matrix  of  partial  deviatives 
for  transition  matrix  or  covariance  propagation 
in  a control  phase. 

The  magnitude  of  the  low  thrust  acceleration  is 

» 

_ 0.002  n P T_ 

m C 

where 

P = power  available  to  the  thrusters 
^ = thruster  efficiency 

tn  •=  spacecraft  mass 
c = exhaust  velocity 
= throttling  level. 

It 

The  acceleration  vector  can  be  expressed  in  one 
of  two  spacecraft  centered  coordinate  systems. 

One  system  is  the  cone  and  clock  system  and  the 
other  is  the  In  plane  and  Out  of  plane  or  orbit 
plane  system,  (Section  4,1,  Reference  1),  Letting 

Gjj  = Cone  Angle 

= Clock  Angle 

S In  plane  angle 

“ Out  of  plane  angle. 


The  acceleration  vectors  for  each  system  are 


/ 

a 

X 


/ 


and 


a. 

X 


a cos 

a sin  (Cj^  + C^t)  sin  (Cj^  + C^^t) 
a cos  (C^  + C^t) 

a cos  (T+T t)  cos  (S+St) 


■ a^  = a cos  +r  t)  sin  (B  +&  t) 

a^  = a sin  (T  +V  t) 
z 

where  t is  the  trajectory  time  from  the  begin- 
ning of  the  control  phase.  The  acceleration  is 
then  transformed  from  the  spacecraft  system  to 
the  inertial  system  by  the  matrix  A (See  Section 
4,1  of  the  Analytic  Manual), 


£ = A 

EP  also  computes  the  matrix  of  partial  derivative 


g 


1” 


where  u,  is  the  vector  of  thrust  controls  in  the 
current  segment,  NTPHASE,  The  controls  are 
throttling  level  and  the  two  pointing  angles 


i 


1 
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EP-3 


(cone/clock  or  in/out:  of  plane)  which  correspond 
to  THRUST  (3,  NTPHAS)*  THRUST  (4,  NTPHAS)  and 
THRUST  (5,  NTPHAS),  respectively. 

For  the, pone /clock  system, 


S = 


a'  a cos  (G  + G t)  cos  (G  + C t)  -a^ 
X L L N « V 


-a  sin  (G^ 


and  for  the  orbit  plane  system 


/ 

g = 


**a‘^  ™a  sin  CiT+Tt)  cqs  (S+St) 


a'  a*  -a  sin  (?’4-^t)  sin  (<5+Sl) 

y ^ 


^ 0 a cos  (Th-^  t) 


is  then  transformed  to  the  inertial  reference 
system  by 


g = A g' 


When  SIMSEP  calls  TRAJ,  time-varying  noise  is 
added  to  the  thrust  controls  and  the  noised 
controls  are  used  to  compute  ^ and  g. 


Input/Output : 


Input/ 

Variable  Output 


Argument/ 

Conraion 


Definition 


T I C 

CMASS  I C 

EXHVEL  I C 

NTPHAS  I C 

WP0^^ER  0 G 

UREL  I G 

UREI^I  I ■ C 

33 

N0ISED  I C 

THRUST  I C 


Trajectory  time  in  seconds. 

Current  spacecraft  mass. 

Exhaust  velocity  (c), 
(Equivalenced  to  ENGINE(IQ) 
Thruster  efficiency  (q), 
(Equivalenced  to  ENGINE (11) 

Current  thrust  phase  number 

Power  available  (P). 

Heliocentric  position 
vector. 

Position  magnitude  array. 

Flag  that  causes  EP  to  add 
noise  to  the  controls. 

Matrix  that  contains  a set 
of  controls  for  each  seg- 
ment, (THRUST  (i*  NTPHAS)) 
where  i is  the  desired 
information  for  the  NTPHAS 
phase. 


i = 1, 

thrust’  policy 

i ^ 2, 

phase  end  time  in 

seconds 

i = 3, 

thrust  scale  factor 

i - 4, 

Cjj  or  $ ; dependent 

upon  i = 1 

i = 5, 

or  V ; dependent 

upon  i - 1 

i - 6, 

* i 

Cy  or  5 ; dependent 

upon  i = 1 


A37 


EP-5 


.1 





Input/  Argument/ 

Variable  Output Common Definition 


i = 7,  Cj^  or  T ; dependent 
upon  i = 1 

GT 

0 C 

s " 

THRACC 

0 c 

a 

UTRUE 

Position  vector  relative 
to  the  primary  body. 

VTRUE 

Velocity  vector  relative 
to  the  primary  body. 

Local  Variables: 

Variable 

Definition 

ACCEL 

a 

* 

AC0NE 

. 

AGL0CK 

“i. 

AIN 

A0UT 

T 

R0TMAT 

The 

transformation  matrix  A, 

W0RK 

Used 

to  store  the  matrix  g"*. 

ITYPE 

Thrust  policy  for  the  NTPHAS  segment  = 
THRUST  (1,  NTPHAS), 

DELTA! 

Time  from  the  beginning  of  the  control 
p^ase  (t) 

Subroutines  Called 

P0i.'ER,  DN0ISE, 

UNITV,  UXV,  MMAB,  ZER0M 

Callina:  Subroutines;  H0TI0N 

C0NST,  EPHEM,  TR/Ul,  TR/iJ2,  W0RK 


Common  Blocks : 


A40 


EPHEM-1 


3 ^5 ^4  Subroutine:  EPHEM  (K0,  DJ,  R,  V) 


Purpose ; 


Method: 


To  compute  the  heliocentric  position  and 
velocity  vectors  of  a given  planet  or  body. 
The  orbital  elements  (a,  e,  i,  XI  M)  of 

the  desired  body  are  computed  from  time  vary- 
ing expressions,  for  example,  the  semi-major 
axis 


a(t)  = ®1^J  +a^t.^ 


‘2  J 


*3''J 


where  is  the  value  at  the  ephem.  ris  epoch 
1900,  January  0,5,  is  the  time  from  the 

epoch,  and  a^,  a^,  constant  coefficients, 

tj  is  measured  in  days  for  all  elements  except 
mean  anomaly  of  the  planets  where  t^  is  measured 
in  units  of  10  ^ days.  After  the  osculating 
Orbital  elements  are  computed,  they  are  trans- 
formed into  cartesian  position  and  velocity 
vectors. 


A unique  case  occurs  when  EPHEM  is  used  to 
compute  the  position  and  velocity  vectors  of 
the  earth’s  moon.  The  position  (tg)  snd 
velocity  (1^)  vectors  of  the  earth  are  com- 
puted and  added  to  the  position  and 

velocity  vectors  of  the  moon  relative 


GHEAN 


I 


EPHEM-2 
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EPHEM-3 


4A3 


EPHEM-4 


Variable 

Definition 

GMU 

SMSS  + PMASS(KP),  for  the  planets 
PMASS(3)  + PMASS(li),  for  the  moon 

P0LY3 

Statement  function  that  performs 
= a.  + tj  (b^  + tj 

(a.  + tj)) 

P0LY1 

Statement  function  that  performs 
^ + ‘’i 

D 

Days  from  1900, 

DD 

D/10000. 

T 

D/36525. 

Subroutines  Called: 

CAR't-3 

Calling  Subroutines: 

E0LAR 

Connnon  Blocks: 

C0NST, 

EPHEM 
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FIND-1 


3,5,5  Subroutine : FIND 

Entry  Points;  FINDI , FINDS 

Purpose;  (1)  To  compute  the  location  in  Blank  Common  arrays 

that  will  be  used  by  TRAJ  and  the  number  of  equa- 
tions to  be  integrated,  (2)  to  copy  integrated 
parameters  into  mode  accessible  locations^  and  (3) 
to  initialize  the  F matrix. 


Method;  None 

Remarks:  All  L0CXX  variables  indicate  locations  within 

Blank  Common 


Input/Output : 

Input/  Argument/ 

Variable Output Common Definition 


L0CS 

I 

C 

Location  in  Blank  Common 
where  TRAJ  can  start  array 
allocation. 

INTEG 

I 

c 

Set  - 1 Propagate  State  & 

Transition  Matrix 

Set  = 2 Propagate  State  only 

Set  = 3 Propagate  State  and 

Covariance 

lADGDC 

I. 

C 

Flag  array  determining  the 
components  of  the  Transition 
Matrix  or  Covariance  to  be 
propagated. 

MEQ 

0 

c 

Total  number  of  equations 
to  be  integrated. 

MEQ8 

0 

c 

MEQ-8 

MEQS 

0 

c 

L0{M 

0 

c 

Integration  stepsize 

L0CX 

0 

c 

Trajectory  time  in  seconds 

LdCPT 

0 

c 

Trajectory  print  time 

L0CET 

0 

c 

Trajectory  event  time 

L0CPR 

0 

c 

Trajectory  time  for  print 

L0CT 

0 

c 

Trajectory  time  stored  for 
interpolation 
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FBD-2 


Xnput;/Output; 

(Continued) 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

L0CR 

0 

C 

Position  magnitude  stored 
for  interpolation 

L0CrC 

0 

c 

Dependent  variables 

L&GDY 

0 

c 

Differential  equations 

LtaCYT 

0 

c 

Dependent  variables  for 
print  and  events 

LdCDT 

0 

c 

Differential  equations  for 
print  and  events 

L^CYP 

0 

c 

Temporary  locations  for 
integration 

L0CTE 

0 

c 

Future  modifications 

I0CFI 

0 

c 

F matriXj  F l|> 

L0CM 

0 

c 

Mass 

L0CDM 

0 

c 

Mass  variation 

L0CTC 

0 

c 

Transition  or  Covariance;  matrix 

Local  Variables: 

Variables 

Definition 

I STATE 

Array  containing  size 

of  augmented  dynamic  parameters 

Subroutines  Called 

: C0PY,  IDENT,  MUNPAK,  ZER0M 

CallinK  Subroutine 

s:  PATH 

Common  Blocks: 

(BLANK) , 

DIMENS,  TRAJl 

, TRAJ2,  W0RK 
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3,5. 6-A  Subroutine : GRAVAR 

Purpose:  GRAVAR  computes  the  variational  matrices  with  the 

exception  of  the  gravity  gradient  matrix  ( Gll), 
needed  to  formulate  the  matrix  differential  equations 
which  integrate  into  the  augmented  state  transition 
matrix. 

Method:  The  variational  matrices  are  formulated  as  follows 

(Reference  1,  p 122): 


G12  = k = 


T 

3r  r 
-e-e 


1 [ 

— e e L 

= = .^[3r 


r^  I 
—e 


T 2 ^ 

r - r I 
—e  ~e 


] ■ $ [’3  '] 

] 


GMll  - m 


= -^  = - 


r 


0112  = d 


0121 


0122  = q = = - _i| 

Oil  r^ 

^e  e 


where : 

r is  the  s/c  heliocentric  position  vector 
r^  is  the  heliocentric  ephemeris  planet  position  vector 
is  the  gravitational  constant  of  the  ephemeris  planet 
fl^  is  the  gravitational  constant  of  the  sun 

is  the  position  vector  of  the  s/c  WRT  the  ephemeris  planet 
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Input/Output; 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

UP 

I 

■ C 

Heliocentric  position  vectors 
of  all  bodies  in  the  integra- 
tion 

lAUGDC 

I 

C 

Array  of  flags  used  to  augment 
the  state  for  STM  or  covarianc* 
integration 

PMASS 

I 

c 

Planetary  gravitational  con- 
stants 

SMASS 

I 

c 

Solar  gravitational  constant 

UREL 

I 

c 

Position  vector  of  s/c  rela- 
tive to  all  bodies  considered 
in  the  integration 

DREXM 

I 

c 

Magnitudes  of  UREL 

G12 

0 

c 

k 

622 

0 

c 

P 

©ill 

0 

c 

m 

Oil  2 

0 

c 

d 

GM21 

0 

e 

s 

(2422 

0 

c 

q 

lEP  I 

Local  Variables: 

c 

Ephemeris  body  identification 

Variable 


Definition 


DIM  ( = WORK(IO)) 

SMUK  ( = W0BKC4)) 
Subroutines  Called ; 


Magnitude  of  position  vector  of  the 
ephemeris  planet. 

Gravitational  constant  of  ephemeris  planet 
VECMAG 


Calling  Subroutines; 
Common  Blocks; 


DPHI,  PDOT 

EPHEM,  TRAJl,  TRAJ2,  WORK 


GRAVF(jl-l 
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3,5.6-B  Subroutine!  GRAVF0  (UA) 


Purpose! 


Method! 


The  subroutine  6RAVF0  has  two  principal  purposes. 

The  first  is  the  calculation  of  differential  ac- 
celerations acting  on  the  s/c  due  to  gravitational 
bodies  being  considered  in  the  analysis.  The  second 
purpose  is  the  computation  of  the  gravity  gradient 
matrix,  G?.l,  which  is  used  in  the  algorithm  determin- 
ing the  step  size  for  the  trajectory  integrator 
(PATH).  Gll  is  used  also  with  the  other  variational 
matrices,  G12,  G22,  GM12,  GM12,  GM21,  and  GM22  (all 
computed  in  GRAVAR)  to  formulate  the  matrix  differen- 
tial equations  which  integrate  into  the  augmented 
state  transition  matrix.  In  addition,  GRAVF(S  per- 
forms many  auxilliary  calculations  which  determine 
the  relative  geometries  among  all  planetary  bodies 
and  the  s/c.  These  geometricl  quantities  are  stored 
in  common  blocks  accessible  to  other  routines  where 
they  may  be  used  without  further  computational  ex- 
pense . 

TRAJ  uses  Encke's  formulation  of  the  equations  of 
motion  for  propagating  trajectories,  (Section  4.1, 
Reference  1).  The  differenLial  acceleration  computed 


by  GRAVF0  is 


Sr  = 


[f  («0 


where 
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GRAVF^-2 


r = 


B L 


r = 


+ 


s 


r 


f{ci  ) 


■X  (3  + 3 ■{•  0< 

1 + (1  + 


04  = (Si.  - 2r)  * s r 

2 

r 


Pi  - r + r -r. 

— — — p “1 


o( 


L 


3 + 3 o<, . + 
1 + (1  + 

1 


- reference  conic  position  vector  of  the 
spacecraft. 

position  vector  of  the  spacecraft  relative 
to  the  body. 

- heliocentric  position  vector  of  the  space- 
craft. 

th 

- heliocentric  position  vector  of  the  i — 
body, 

- number  of  bodies  included  in  the  integrstion 
other  than  the  sun. 

- heliocentric  position  vector  of  the  primary 
body. 


gravitational  constant* 
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GRAVF0-3 


GRAVFOf  also  computes  the  gravity  gradient  matrix, 
Gll,  which  is  used  for  state  transition  matrix 
propagation  and  as  a determinant  in  the  integrator 
step  size  logic.  (Reference  1,  p 122) 


Gll  = f =' 


> P 

- P 


(t ..) . 

■(E  toi  !>■'  -Pi'  I 

i=l  _ _ _ / 

+ [sP  P - p 2 l] 

_ P _ P 


_ P 


The  subscript  i refers  to  the  i perturbing 
body  and  the  subscript  p refers  to  the  primary 
body,  P indicates  body  relative  position  vectors 
while  ^ is  the  gravitational  constant. 
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Input /Out put; 


Variable 


Input/ 

Output 


Argument/ 

Common 


Definition 


The  first  three  elements 


IJA  .1  A 


UEKC  I C 

tJEKCM  I C 

VENC  I C 

UTRUE  0 C 

UTRUEM  0 C 

VTRUE  0 C 

VTRUEM  0 C 

APERT  0 C 


SMASS  I C 

PMASS  I C 

OREL  0 C 

UREIM  0 C 

VREL  0 C 

VRELM  0 C 

UP  I C 

VP  I C 


contain  5r. 

The  second  three  elements 
contain 

r 

_c 


r 

c 


f 

"C 

r 

r 

r 

f 

Array  that  contains  the  per- 
turbing acceleration  vector 
for  each  body  included  in  the 
integration,  APERT  (I,  Il'Rl) 
I = 1.3  contains  the  vector 
sum  of  these  perturbations. 

Solar  gravitational  constant. 

Array  of  planetary  gravita- 
tional constants. 

Array  containing  each 
Array  containing  each 

f 

Array  containing  each 

• 

Array  containing  each  P^. 
Array  containing  each 
Array  containing  each 
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GRAVF(5f-5 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

NB 

1 

C 

Array  containing  planet  codes 
of  each  body  in  the  integration, 

APRIM 

0 

C 

• m 

r 

”P 

AT0T 

0 

c 

&r 

Gll 

0 

c 

f 

MPLAN 

1 

c 

N + 1 

IPRI 

I 

c 

Flag  used  to  locate  inforaation 
concerning  the  primary  body  in 
the  UP,  UREL,  UREIM,  VP,  VREL, 
and  VREIM  arrays. 

local  Variables: 


Varigble Definition 


ADEL  (='W0RK(I),  I 


APERT  (J,  IPRI), 
J = 1,3 


F(X) 


Q (=  W0RK(21)) 


Subroutines  Called: 
Calling  Subroutines! 
Common  Blocks; 


VEOIAG 

EPHEM,  TRAJl,  TRAJ2,  W0RK 
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3.5.7 
Purpose ; 


Method: 
Remarks ; 


Subroutine;  L0ADFM  (DS,  DP,  INDEX) 

To  compute  the  F matrix  and  the  matrix  of  deriv- 

* * fn 

atives  J = F^  or  P - FP  + PF  -F  Q for 
transition  matrix  or  covariance,  respectively, 
(Sections  4.5  and  4.6,  Reference  1), 

The  non-zero  components  of  F are  stored  in  appro- 
priate sub-matrices,  according  to  the  degree  the 
state  is  augmented. 

Case  1;  State  transition  matrix. 

Given  the  au^ented'  state  vector 


X = 


where 

r - spacecrpft  position  vector. 

^ - spacecraft  velocity  vector, 

u “ constant  spacecraft  controls, 

r^  - position  vector  of  the  spacecraft 

relative  to  the  ephemeris  body, 
r^  - velocity  vector  of  the  spacecraft 
relative  to  the  ephemeris  body. 
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I^ADFM-2 


The  linearized  equations  of  motion  for  the 
augmented  state  are 

« 

^ X = ^ 5. 

where 


^ X 


where  I is  a 3x3  identity  matrix  and 


f = 


a I. 


m = 


a r 


g 


a E 


P 


3 ie 


k - 


-k  •* 

3r 


q = 


d = 


3 r 
3/^e 


JJe 
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Case  2;  Covariance  matrix. 

Given  the  augmented  state  vector 


where 

« - time  varying  thrust  parameters, 

r.  - tracking  station  position  vectors. 


and 


I 0 

0 g 

0 0 

0 0 

0 0 

0 0 

0 ■ 0 


0 0 

n 0 . 

0 0 

h 0 

0 0 

0 0 

0 0 


0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 


where  I is  a 3x3  identity  matrix 
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L0ADFM-4 


*3 13. 


n = Isis] 


and  h is  the.  matrix  of  process  noise  correlation 
times 


The  matrix  Q is  the  process  noise, 


0 

0 


0 0 0 
0 0 0 


0 0.00 

f 

0 -2-h-E  L "Svi-:  S ^ ] 0 0 


0 

0 


0 

0 


0 0 
0 0 


0 


0 


0 0 


0 

0 

0 

0 

0 

0 

0 


The  dimensions  of  f , |,  P,  P,  P and  Q are  determined 
by  the  highest  degree  of  augmentation  of  the  state 
vector.  The  flag  array  that  controls  the  augmen- 
tation is  the  lAUGDC  array. 


1 
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Input/Output; 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

INDEX 

I 

A 

= 1,  Load  the  F matrix 
and  compute  P. 

= 2,  Load  the  F matrix 
and  compute 

= 3,  Use  current  F,  compute  P 
= 4,  Use  current  F,  compute 

DS 

I 

A 

“ P for  Covariance  propagation. 

= 5 Transition  Matrix 

propagation 

DP 

0 

A 

- P for  Cpvariance  propaga- 
tion » for  transition 

matrix 

F(L^CFI) 

I 

C 

Location  in  Blank  Common  to  use 
for  F matrix  storage. 

IAU05S 

I 

c 

Array  of  flags  -where  each  element 
determines  what  is  to  be  loaded 
in  the  F matrix. 

Gll 

I 

c 

f 

GT 

I 

c 

S 

G12 

I 

c 

k 

G22 

I 

c 

P 

GM12 

I 

c 

d 

GH22 

I 

c 

q 

G!tll 

I 

c 

m 

GM21 

I 

c 

s 

GTAUl 

I 

c 

.Upper  left  3x3  of  h < 

GTAU2 

I 

c 

Lower  right  3x3  of  b 

QN0ISE 

I 

c 

Q = process  noise 

MEQS 

I 

c 

Dimensions  of  JJ  , .11  , P,  P, 
and  F. 

L0ADFM-6 


Subroutines  Called;  MMAB,  MUNPAK,  SCAIiEj  SYHTRZ,  ZER0M 
Calling  Subroutines i DPHI,  PD^Tj  TRAJ 


Common  Blocks; 


(BLANK),  TRAJl,  TRAJ2,  W0RK 


Logic  Plow; 


L0ADFH 


Load  Gll 
Into  The 
F Matrix 


JAUGDC(2)=Q 


INDEX 


IAUGDC(2)=0^ 
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3.5.8  Punctio.n  Routine:  10CATE  (INDEX) 

Purpose:  To  locate  the  target  body,  ephetneris  body, 

lauach  body  or  ‘primary  body  in  the  NB  array. 

tlethod:  None 

Input/Outout; 

Input/  Argument/ 

Variable  Output Common Definition 

INDEX 

KTP 
NEP 
NLP 
NPRI 


I 

I 

I 

I 


G 

G 

G 

C 


SET  = 1 Locate  target  body 
= 2 Locate  ephemeris  body 
® 3 Locate  launch  body 
- 4 Locate  primary  body 

Number  of  the  target  body 

Number  of  the  ephemeris  body 

Number  of  the  launch  body 

Number  of  the  primary  body 


Local  Variables: 
Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 

Logic  Flow: 


None 


None 

PATH,  GRAVF0 
TRAJ2 
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3.5,9  Subroutine;  (T,  DS,  DSD,  M,  N,  L0C) 

r 

Purpose:  To  compute  the  S/C  accelerations  and  to  rectify 

the  refereijce  conic. 

Method;  Encke’s  formulation  of  the  equations  of  motion. 

Input /Output; 

Input/  Argoment/ 


Variable 

Output 

Common 

Definition 

T 

I 

A 

Trajectory  time 

DS 

I 

A 

Dependent  variable 

DSD 

0 

A 

Differential  equations 

M 

I 

A 

Number  of  rows  in  DS  and  DSD 

N 

I 

A 

Number  of  columns  in  DS  and  DSD 

L0C 

I 

A 

Routing  flag 

EP0CH 

I 

C 

Julian  Date  of  Launch 

TH 

I 

G 

Conversion  from  seconds  to  days 

■ EXHVEL 

I 

C 

Exhaust  velocity 

AT0T 

I 

C 

Differential  acceleration  plus 
perturbing  gravitational 
accelerations 

THEAGC 

I 

G 

Thrust  accelerations 

RPACC 

I 

G 

Radiation  Pressure  acceleration 

Local  Variables: 

None 

Subroutines  Galled: 

REFINE 

, S0LAR,  0SCUL 

, GRAVP0,  EP,  RPRESS,  ADD,  C0FY 

Calline  Subroutines: 

NmilN, 

DPHI,  PD0T 

Gooimon  Blocks; 

G0NST, 

TIME,  TRAJl, 

TRAJ2,  WfjRK 
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Logic  Floy?: 


No 


Compute  the 
accelerations  due 
to  thrust  and 
ratiation  pressure; 

Gail  EP 
Cali  KERBS S 


M0TI0N-2 


Yes 


I 
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3. 5 aO- Subroutine;  NEI^X0R  (XVALUE,  WALUE,  X,  Y,  INDEX) 

Purpose;  To  fit  a third  Order  Polynomial  through  4 data 

points  for  either  interpolation  or  finding  the 
minimum  of  the  polynomial. 


Method : 


Input /Out put: 


Newton's  third  Order  Divided  Difference  Interpolation 
Polynomial,  (See  Appendix  3,  Reference  1) 


Input/ 


Argument/ 


Variable 

Output 

Common 

Definition 

XVALUE 

I 

A 

Table  of  independent  values 

YVALUE 

I 

A 

Table  of  dependent  values 

X 

I/O 

A 

For  interpolation,  the  value 
of  X for  which  Y is  desired. 

■ 

• ^ 

(Input) 

For  a minimum,  the  value  of 
X at  the  minimum.  (Output) 

Y 

I/O 

A 

For  interpolation,  the 
interpolated  value  of  Y. 

(Output) 

For  a minimum,  the  value  of 
Y at  the  minimum.  (Output) 

INDEX 

I 

A 

Set  =1,  Find  the  minimum 
Set  = 2,  Interpolate 

Local  Variables; 

Variable 

Definition 

DDX 

The 

Divided  Differences 

A 3 S j ' C ^ B 

Coefficients  of  a 

3rd  Order  Polynomial 

Subroatines  Galled: 

Nona 

Calline  Subroutines 

: PATH 

Common  Blocks: 

None 
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3.5,11  Subroutine;  NDMIN  (M,  N,  X,  H,  YC,  YP,  F,  DERIV) 

Entry  Points;  SETUP,  RUNG2,  RUNG4 

Purpose;  To  integrate  an  MxN  matrix  of  first  order 

differential  equations. 

Method;  4th  Order  Runge-Kutta  formula  (RUNG4)  and  2nd  Order  (RUHG2) 

Input /Output ; 


Argument/ 

Variable I/O Conmon Definition 


I 

A 

Number  of  rows 

M 

I 

A 

Number  of  columns 

X 

1/0 

A 

Independent  variable 

H 

I 

A 

Integration  step-size 

YC 

1/0 

A 

Matrix  of  dependent  variables 

YP 

0 

A 

Temporary  storage  matrix 

F 

0 

A 

4 - Temporary  storage 
L^iat  rices 

DERIV 

I 

A 

Name  of  the  subroutine 

containing  the 
differential  equations . 
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Local  Variables: 


Variable 

Definition 

ALPHA 

Array  of  4 integration  constants 
(0,  h.  1)  or  (0,  1,  0,  0) 

BETA 

Array  of  4 Integration  constants 
(0,  hj  h,  1)  or  (0,  1,  0,  0) 

CHI 

Array  of  4 Integration  constants 

(1/6,  2/6,  2/6,  1/6)  or  (%,  h,  0,  0) 

L0C 

Output  flag  to  DERIV 

Subroutines  Called:  DERIV  {defined  by  argument,  e,g* , DPHI,  M0TI0N,  PD0T) 

Calling  Subroutine;  PATH 


Common  Blocks : 


None 
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3,5.12  Subroutine : 
Entry  Point: 

Purpose: 

Remarks : 


PATH 

PLIGHT 

PATH  initializes  all  trajectory  routines,  while 
PLIGHT  controls  trajectory  propagation. 

Based  upon  input  flags,  PATH  determines  how 
PLIGHT  will  function  as  well  as  all  the  other 
trajectory  routines.  FLIGHT  tests  for  and 
executes  trajectory  rectification,  primary  body 
changes,  thrust  control  changes,  trajectory 
termination  conditions,  trajectory  print  and 
trajectory  events. 

The  most  significant  feature  of  PATH  is  the  use 
of  blank  common  as  a working  area  for  the  Fourth 
Order  Runge-Kutta  numerical  integration  routine 
(Appendix  2,  Reference  1),  applied  to  a matrix 
of  first  order  differential  equations. 

where 


L = V 
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PATH- 


V^'<"k  + r « \ + r ■ V 


F,  ^ F ' (x,  + h.  , Y,  + h,  • F ) 

4 k k ^ k k y 

The  values  of  Y and  F are  stored  in  a blank 

common  array  (DSC)  and  their  order  depends 

upon  whether  some  or  no  events  are  processed 

within  the  normal  integration  step  (h,  ) . 

Case  1:  If  no  events  occur  betx^een  and 

\-i-l  = X^+hj^,  then  a normal  integration  step 

will  be  taken,  Tlie  values  of  Y,  and  F, 

k 1 

(Xj^,  Yj^)  are  used  for  the  Runge-Kutta  inte- 
gration and  at  the  completion  of  the  step  the 
DSC  array  appears  as 

DSC  = Y^^.  + 


^2’  ^3*  ^4* 


k-i-1 


where  the  first  two  entries  (Y  and  F^^)  are  at 
the  updated  point,  the  next  three  entries 

contain  values  of  F in  the  h,  interval,  there 
are  two  unused  storage  arrays,  and  the  last 
entry  is  a running  value  of  Y (v;hich  becomes 
Yj^j^  at  the  end  of  the  step).  The  next 
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integration  step  can  noi^  be  taken  and 

starts  with 

Case  2i  If  an  event  or  print  has  been  specified 
by  either  the  calling  mode  or  TRAJ  itself j and 
it  occurs  between  and  then  a short 

integration. -step  (*h)  is  taken  to  the  event. 

The  resultant  blank  common  storage  at  the  event 
(Xj^  + *h)  is  then 


DSC  = Y,  , F, , *Y,  . , , 
k 1 k+1 


'F  fx 
1^  k 


*h  *h. 


'Y  ) 
k+1'' 


where  asterisks  (*)  refer  to  values  for  the 
event  integration  step.  The  first  t\70  entries 
are  stored  values  of  Y and  F at  to  preserve 
values  such  that  a normal  intrgration  step  can 
be  taken  after  the  event  has  been  processed. 

The  next  six  entries  are  used  for  the  event 
integration  step.  If  no  more  events  occur 
before  + hj^,  then  normal  integration  resumes 
with  the  stored  values  Y^  and  F^,  and  the  results 
are  shown  in  Case  1.  If  more  events  occur  before 
Xj^+hj^j  then  the  process  of  Case  2 is  repeated 
using  *^2.  events  have  been 

processed.  Since  TRAJ  can  integrate  the 
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transition  matrix  or  covariance  in  addition  to 
the  state  deviation  from  the, reference  coniCj 
an  additional  array  is  needed.  This  array  is 
used  to  store  the  partial  deviatives  contained 
in  the  F matrix  (Appendix  4,  Reference  1).  Tlie 
locations  for  the  F matrix  begin  after  the  last 
word  of  Yj^  (or  amount  of  blank  common 

used  by  TRAJ  varies  with  the  number  of  equations 
to  be  integrated.  For  the  state  only  case. 


Y 


Sr 

Sv 

m 

-Sm 


where  and  Sv  are  deviations  from  the  conic 
state,  m is  the  spacecraft  mass  and  Sm  is  the 
mass  variation.  When  the  transition  matrix  (^) 
or  the  covariance  (P)  are  to  be  integrated 


Y 


^r 

Sz 

m 

Sm 
- 2 


or 


Y 


Sv 


m 

Sm 

P 
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For  state  only  integration,  Y is  an  8 x 1.  matrix. 
When  the  transition  matrix  or  covariance  is  to 
be  integrated,  the  dimension  of  Y varies  with  ^ 
and  P.  The  dimensions  of  ^ and  P are  those  for 
the  highest  degree  of  augmentation.  The  sub- 
routine FIND  determines  the  number  of  equations 
to  be  integrated,  the  dimensions  of  ^ or  P and 
the  number  of  locations  in  blank  common  needed 
for  numerical  integration. 


Input/Output; 

.Variable 


Other  information  stored  in  blank  common  are: 
3^  - Current  trajectory  integration 

time  (t) j 

h - Integration  stepsiae; 

t - Integration  event  time; 

P 

“ Next  mode  event  time; 

tpg^  - Next  mode  print  time; 

t.  - Four  stored  times  used  for  interpo- 

3. 

lation; 

- Pour  stored  position  magnitudes 
corresponding  to  the  t.’s,  also 
used  for  interpolation; 


Input/  Argument/ 

Output  Common Definition 


IKTEG 


I 


C 


Flag  that  determines  the 
equations  to  be  integrated 
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PATH- 6 


Input/ 

Variable Output 


Argument/ 

Common 


Definition 


= I*,  State  and  transition 
ma trix; 

= 2,  State; 

= 3,  State  and  covariance. 


IPRINT 

I 

'C 

Flag  that  determines  when 
to  print. 

• 

= 1,  Every  IPRINT  Integra - 
. tion  step; 

= 0,  No  print; 

=-l.  Every  XPRINT  days; 
=-2,  At  trajectory  event. 

MPIAN 

I 

C 

Total  number  of  bodies  to 
be  considered  in  the  NB 
array. 

I 

G 

First  location  the  integra- 
tion routine  can  use  for 
storage. 

IST0P 

I 

C 

Flag  that  determines  trajec- 
tory termination. 

• 

1 - Final  trajectory  time 

(TDUR) ; 

2 - Radius  of  Closest 

Approach  to  the  target 
body; 

3 - Sphere  of  influence  of 

the  target  body; 

4 - Stopping  radius  relative 

to  the  target  body. 

KTRAJ 

I 

c 

Flag  used  to  test  for  con- 
trol phase  change. 

* 

4 0 - Not  in  use; 

>0  - Test  for  control 
phase  changes; 

»=0  - Do  not  test  for  control 
phase  changes; 

MEVEKT 

I 

c 

0 - Do  not  test  for  events; 

1 - Test  for  events. 
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PATH- 7 


Inpufc/  Argument/ 


•iable 

Output 

Common 

Definition 

mmsE 

I 

C 

0 - Primary  Body  Changes, 

1 - No  Primary  Body  Changes. 

ipfiag 

I/O 

G 

1 - No  Thrust  Phase  Change 

has  occurred, 

2 - Thrust  Phase  Change  has 

occurred. 

JPFIAG 

I/O 

C 

1 - No  Primary  Body  Phase 

Change  has  occurred. 

2 - Primary  Body  Phase 

Change  has  occurred. 

IKECT 

0 

C 

0 - Rectification  due  to 

primary  body  or  control 
phase  change , 

1 - Trajectory  rectification. 

ISTEP 

0 

' G ’ 

Number  of  integration  step. 

NB 

I 

C 

Array  containing  the  bodies 
to  be  cosidered  in  the  inte- 
gration. 

- 

I 

C 

Total  number  of  non-zero 
entries  in  the  NB  array. 

NPRI 

0 

C 

Number  of  the  primary  body. 

IPRI 

0 

G 

Location  of  NPRI  in  the  NB 
array. 

NTPHAS 

I/O 

G 

Number  of  the  -current  con- 
trol phase. 

NEP 

I 

c 

Number  of  the  ephemeris 
body. 

lEP 

0 

G 

Location  of  NEP  in  the  NB 
array , 

DKM&X 

I 

C 

Haximum  deviation  from  the 
reference  conic  before 
rectification. 

STATED 

I 

C 

■Initial  state  vector. 
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PATH-8 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

UTRUE 

I/O 

C 

Position  vector  relative 
to  the  primary  body. 

VTRUE 

I/O 

C 

Velocity  vector  relative 
to  the  primary  body. 

ACC 

I 

c 

Trajectory  Accuracy  level. 

PRCA 

I 

C 

Percentage  of  the  semi- 
major axis  of  target  body 
to  begin  closest  approach 
detection. 

scmvar 

I 

G 

Initial  mass  variation. 

SCMASS 

I 

G . 

Initial  S/C  mass. 

THRUST 

I 

C 

End  of  the  current  control 

(2,  HTPHAS) 

• 

phase. 

VTRHEM 

I 

C 

Magnitude  of  VTRUE. 

DTRUEM 

I 

c 

Magnitude  of  UTRUE. 

xprint 

I 

c 

Time  increment  of  Print 
(seconds) , 

Gll 

I 

c 

The  gravity  gradient. 

TDUR 

I 

. G 

Trajectory  stopping  time 
in  seconds. 

TEVHT 

I 

C 

Event,  time  in  seconds. 

TCP 

0 

G 

Total  integration  time. 

TREF 

I 

G 

Initial  Trajectory  Starting 
time  in  seconds. 

TST0P 

0 

C 

Time  that  a stopping  criteria 
has  been  reached  in  days. 

NRECT 

I 

C 

Number  of  Rectifications, 

. ALPHA 

I 

G 

Inverse  of  semi -major  Axis, 
20 

BIG 

I 

G 

10 

1 


PATH- 9 


''A  ^ 


Input/ 

Variable  Output 


Argument/ 

Common 


Definition 


GTAUl 


Thrust  noise  correlation 
times . 


6TAU2 


Thrust  noise  correlation 
times* 


QN0ISE 

RST0P 


SPHERE 


Number  of  the  target  body. 

location  of  target  body  in 
the  KB  array. 

Process  noise  matrix:. 

The  stopping  radius  rela- 
tive to  the  target  body. 

Array  containing  all  the 
sphere's  of  influence. 

Time  at  the  sphere  of 
influence  of  th'^  target 
body. 

86400  seconds. 


TRCA 


OREL 


VEEL 


L0GH 

L0CM 

L0CFI 

L0CPR 


Time  at  the  closest  approach 
to  the  target  body. 

Relative  position  vectors 
of  the  spacecraft. 

Relative  velocity  vectors 
of  the  spacecraft. 

The  blank  common  array  where 
the  following  flags  (10CH  to 
L0CX)  are  used  to  locate  data. 

Integration  step-size  (h). 

Spacecraft  mass  (*m). 

P matrix  (F), 

Trajectory  integration  print 
time  (tpg). 
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PATH-10 


Variable 

Input/ 

Output 

Argument/ 

Common 

' Definition 

L0CPT 

I 

G 

Trajectory  print  time 

L0CDM 

I 

i 

G 

Mass  variation  (Sm). 

L0CDT 

I 

C 

Differential  equations  for 
events  and  print  . 

L0CDY 

I 

C 

Differential  equations  for 
the  reference  (F.)* 

3L 

L0CET 

I 

G 

Event  integration  time  (t^). 

L0CF0 

I 

C 

Location  of  the  input 
covariance. 

L0CR 

I 

C 

Location  of  the  stored 
position  magnitudes 

L0CT 

I 

C 

Location  of  the  stored 
position  trajectory  times 

a,). 

L0CTC 

I 

C 

Location  of  the  output 
transition  matrix  or 
covariance  (*P  or  *2), 

LOCYC 

I 

C 

Integrated  equations  for 

the  reference  (Y,  , , ) , 
k+1 

L0GYP 

I 

C 

Integrated  equations 
working  array 

I0GYT 

I 

C 

Integrated  equations  for 
events  and  print  C*Y^^^) « 

L0CX 

I 

C 

Trajectory  time  (^)» 

MEQ 

I 

G 

Total  number  of  equations 
to  be  integrated. 

MEQ8 

I 

G 

MEQ-8. 

MEQS 

I 

G 

^MSQB^ 
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PATH- XX 


f 

I 

Input/  Argument/ 

Variable Output Goironon Definition 


KUT0FF  0 


Requested IST0P 

Fina 1 Time  1 

Closest  Approach  2 

Sphere  of  Influence  3 

Stopping  Radius  4 

Closest  Approach  2 

Sphere  of  Influence  3 

Sphere  of  Influence  3 

Stopping  Radius  - 4^ 

Event  Time  NA 


G , This  flag  indicates  to  the 

mode  calling  TRAJ  why  the 
trajectory  was  terminated. 
Other  than  termination  on 
final  time  .and  an  event, 
the  other  terminations, 

. closest  approach,  sphere 
of  influence  and  stopping 
radius  are  not  always  satis- 
fied. Therefore  this  multi- 
valued flag  gives  a different 
value  for  the  actual  stopping 
condition.  The  following 
table  shows  the  relationship 
between  KUT0FF  and  IST0P. 


Actual  KDT0FF 

Pina 1 Time  1 

Pinal  Time  2 

Pinal  Time  3 

Pinal  Time  4 

Closest  Approach  5 

Closest  Approach  6 

Sphere  of  Influence  7 

Stopping  Radius  8 

Event  Time  9 

V 


Local  Variables; 
Variable 


■ i- 


BEVET 

HPRNT 

IRSTP 


Definition 

.Event  integration,  step-size* 

‘Print  integration  step-size. 

Indicates  termination  for  determining 
KUT0FF. 
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PATH-12 


The  following  variables  are  used  in  assigned  G0  T0  statements  and  are 
in  the  TRAJl  common  block.  When  these  statements  are  used  in  FLIGHT, 
there  are  implicit  tests  made.  The  majority  of  the  tests  are  made  in 


PATH.  ITRAJ,  IPHASO,  IPHASl,  IPHAS2,  JPHASl,  JPHAS2,  JPHAS3,  JTEST, 
KST0P,  L0CAL,  MST0P,  NST0P,  lEVNTl,  IEVWT2 , IEVNT3 , HTEG2,  INTEG3, 
IPHASE,  IPRT,  lEVENT. 


Subroutines  Called: 


Calling  Subroutines; 
Common  Blocks: 


C0PY,  DPHI,  FIND,  FIKDl,  FIND3,  IDENT,  L0CATE, 
M0TI0N,  NEWT0N,  PD0T,  PRINTT,  RUNG2,  RUNG4, 
SETUP,  UD0TV,  VECMAG,  ZER0M 
TRAJ 

(BLANK),  C0NST,  EFHEM,  TIME,  TRAJl,  TRAJ2, 

W0RK 

The  functional  flow  of  PATH  and  FLIGHT  is  given 


Logic  Flow; 


on  the  next  two  pages,  followed  by  a more 
detailed  logic  flow. 


Sutmnary 
Logic  Flow: 


PATH- 13 


Detailed 
Logic  Flow: 


PATH 


FIHD 

Compute  The 
Necessary 
Blank  Coiranon 
Locations 


Set  lEP,  IPFLAG, 
IPRI,  IRECT, 
ISTEP,  ITP, 
JPFLAG,  KUT0FF, 
NRECT,  RCA 


Set  The  Times 
DSC  (L0CX) , 
DSC  (L0CET) , 
DES  (L0CPR) 


Copy  STATED 
Xnlo  UTURE 
And  VTRUE. 

Set  ITRAJ  = 100 
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PATH- 16 


Assign  Statement 

I Numbers  To 

Print 

Every  XPRINT 

Hays 

: iPRT 

735 

LPRINT  = 

885 

IPIACE  = 

950 

JTEST  = 

740 

Assign  Statement 
Numbers  To  By 
Pass  Print 
XPRT  = 800 


J 


Assign  Statement 
Numbers  To  Print 
Every  IPRINT 
Integration  Step 
IPRT  =710 
LPRINT  =685 
IPLACE  = 950 
JTEST  =800 


No 


{Print  Every  Event] 
LPRINT  = 730 
IPIACE  = 950 
JTEST  = 885 


Assign  Statement 

Assign  Statement 

Numbers  To  By  Pass 

Numbers  To  Test 

The  Test  For  Control 

For  Control  Phase 

Phase  Changes 

Changes 

IPHASE  = 600 

IPBASI  = 500 

Assign  Statement 
Numbers  To  By  Pass 
The  Test  For  Events 
lEVENT  = 900 


Assign  Statement 
Numbers  To  Test 
For  Events 
lEVEKT  = 810 
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PATH- 17 


Assign  Statement 
Numbers  To  Test 
For  Final  Time 
. KST0P  = 650 


Assign  Statement 
Numbers  To  Test 
For  Closest 
Approach  And 
Final  Time 
KST0P  610 
MST0P  = 650 


Assign  Statement 
Numbers  To  Test 
For  Sphere  Of 
Influence, 
Closest  Approach, 
And  Final  Time 
KST0P  = 630 
KST0P  =650 


Assign  Statement 
Numbers  To  Test 
For  The  Stopping 
Radius  And  Final 
Time 

KST0P  = 640 
MST0P  = 650 


>■ 


Assign  Statement 
Numbers  To 
Integrate  The 
State  And 
Transition  Matrix 


Assign  Statement 
Numbers  To 
Integrate  The 
State  Only 


Assign  Statement 
Numbers  To 
Integrate  The 
State  And 
Covariance 


NPHASE 


;*i*i 


PATH- 18 


■FLIGHT 


G0  T0  ITRAJ 


Compute  The 
Initial  CP 
Time 


SETUP 


Rectify  The. 
Orbit 
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PDCfT-1 


3.5.13  Subroublnet  PDi^T  (T,  DS,  DP,  M,  N,  L(?C) 


Purpose: 


Method; 

Input/Output: 


Variable 


To  compute  the  time  derivative  of  the  state 
covariance  (P) 

p - pp  + + Q 


Input / Argument / 

Output Common Definition 


T 

DS 

DP 

M 

N 

Lgfc 

IKTEG 


lAUGDC 


IRECT 


I 

I 

(3 

I 

I 

I 

I 


A 

A 

A 

A 

A 

A 

C 


Trajectory  time 
Independent  variables 
Differential  equations 
Number  of  rows  in  DS  and  DP 
Number  of  columns  in  DS  and  DP 
Routing  flag 

Set  = 1 Propagate  the  state 
and  Transition  Matrix 
Set  = 2 Propagate  the  state 
Set  = 3 Propagate  the  state 
and  state  covariance 

Flag  indicating  the  augmentation 
of  the  STM  and  covariance  matrix 

Index  used  to  check  whether  the 
current  call  to  PD?fT  is  for 
rectification  purposes  only 
(i.e.  IRECT  = 1) 


Local  Variables 


Variable 


Definition 


lADGS  Index  used  to  check  whether  the 

F matrix  needs  to  be  augmented 

Calling  Subroutines:  NDMIN 

Subroutines  Called:  M0TI0N,  LqfADIM,  GRAVAR 


Common  Blocks ; 


TRAJ2 


3.5.14 


Function:  F0l'JER  (R,  TT) 


Purpose; 


Method : 


P0I<?ER  computes  the  power  available  to  . the 
thrusters  of  the  low  thrust  spacecraft  for 
solar  electric  and  nuclear  propulsion. 

The  power  is  computed  from  the  following 
expression. 


2 * 5/2  * 3 ^ 5 
r r r r 


^ r ^ r solar 

exp  i “ ^HK,  electric 


? 


P if  P > P or  r<r  . solar 
max,  max  mrn, 


I 


'o  ■ 'hk. 


P - Power  available  (at  1 AU  for  solar, 

° at  energization  for  nuclear) 

- (Empirical)  Constants  defining  solar 
array  characteristics 

r - Heliocentric  position  magnitude  of 
the  S/C 

P_  - Power  decay  constant 

Jj 

t - Time  from  epoch 
- tpj^  “.Time  delay 

P„„  -'Housekeeping  power  “ ’ 


-J 


1 


P0tffiR-2 


r-"  - 


P - Haxxmum  allowable  solar  electric 
max 

power 


mt/Output; 


r , " Heliocentric  distance  for  which  P 

is  less  than  P 

max 


Variable 


Input 

Output 


Argument/ 

Common 


Definition 


Heliocentric  distance  in 
A.U.  (r) 

Trajectory  time  in  seconds 
Ct) 


P0WERO 


(Kquivalenced  to 
ENGINE  (1)) 


PMAX 


?Tt,r  (E quiva  1 enc e d to 
^ ENGINE  (2)) 


■P  (Equivalenced  to 
ENGINE (3)) 


A,  (Equivalenced  to 
^ ENGINE  (^)) 

A_  (Equivalenced  to 
^ ENGINE (5)) 

A-  . (Equivalenced  to 
^ ENGINE (6)) 

A,  (Equivalenced  to 
^ ENGINE (7)) 

A (Equivalenced  to 
^ ENGINE  (8)) 


EMIN 


r . (Equivalenced  to 
ENGINE (9)) 


PL0SS 


P (Equivalenced  to 
^ ENGINE (12)) 


(Equivalenced  to 
ENGINE (13) ) 
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P0WER-3 


Input/  Argument/ 

Variable Output Common 


Defini tion 


lEKRGY  I 


P0I7ER  0 


C , Flag  that  determines  the 

' type  o£  power 

0 - nuclear  power 

1 - solar  electric  power 

F*  Power  available  to  the 

thrusters. 


Local  Variables: 


Variable 


Definition 


SR 


1 


SCALE 


Subroutines  Called:  None 

Calling  Subroutines:  EP 


Common  Blocks;  C0NST,  TRAJl,  TEAJ2 


*Function  Value  Output , 


’500 


PRIKTT-1 


3.5.15  Subroutine:  PRINTX  (TT,  MASS5 

. 

Purpose: 

To  print 

trajectory 

and  spacecraft  related  infer- 

nation. 

* • 

Input /Output: 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

HTPHAS 

I 

C 

Number  o£^  the  current 
thrust  phase. 

HPRI 

I 

G 

Number  of  the  current 
primary  body. 

NEP 

I 

■c 

Humber  of  the  eptiemeris 
body. 

NTP 

I 

C 

i 

Number  of  the  target  body. 

PIAKET 

I 

c 

Array  containing  the  names 
of  the  planets. 

KASS 

I 

A 

Current  spacecraft  mass. 

WP0^ffiR 

I 

C 

Current  power  available  to 
the  spacecraft  for  thrust. 

TT 

I 

A 

Trajectory  time  in  days. 

TDUR 

I 

C 

Trajectory  termination 
time  in  seconds. 

EP0CH 

I 

• ’a 

C 

Trajectory  initial  time 
(Julian  days). 

TM 

I 

c 

86400,  seconds. 

APRIM 

I 

G 

Acceleration  vector  due 
to  the  gravity  of  the 
primary  body . 

THEAGC 

I 

C 

Acceleration  vector  due 
to  thrust. 

RPAGC 

I ' . 

■'c 

Acceleration  vector  due 
“to  radiation  pressure. 

PHASE 


Ar?:ay 
and  p: 


PRiKrr-2 


Definition 


Flag  fhat  indicates  control 
phase  change. 


Array  containing  only  the 
names  of  the  planets 
included  in  the  integration. 


Matrix  containing  the  accel- 
eration  vectors  due  to  the 
gravity  of  the  non- primary 
bodies. 


Matrix  of  spacecraft  posi- 
tion vectors  relative  to 
the  bodies  considered  in 
the  integration. 

Array  containing  magnitudes 
of  the  position  vectors. 


Matrix  of  spacecraft  veloc- 
ity vectors  reiAtivd  to  the 
bodies  considered  in  the 
integration. 

Array  containing  magnitudes 
of  the  velocity  vectors. 

Total  number  of  bodies 
included  in  the  integration. 

Array  containing  the  thrust 
control.  To  locate  informa- 
tion for  the  current  control 
phase  ITIPHAS  is  used  as 
follows:  THRUST  (i,  KTEHAS) 

where  i is  the  desired  infor- 
mation. 


3,5.16  Subroutine 
Purpose; 

Me  thod : 


Input /Out  put: 
Variable 


J 1 - 1 i 
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RPRESS-1 


; RPRESS  (cmSS) 

RPRESS  computes  the  effective  acceleration 
acting  on  a spacecraft  due  to  radiation  pres- 
sure . 

The  effective  acceleration  is  computed  from 
the  following  expression. 


(1.024  X 10®)  C^A 
2 

m r 


r 


- heliocentric  position-  vector  of  the  space- 
craft. 

m - spacecraft  mass. 

C A - coefficient  of  reflectivity  multiplied 
^ by  the  effective  area  of  the  solar  array. 

In  the  event  that  r ^ r . » where  r . is  the 

min  mxn 

distance  at  which  the  solar  electric  power  is 
a maximum,  the  effective  cross  sectional  area 
of  the  solar  array  is  changed  by  tilting  (or 
folding)  them.  Therefore,  the  effective  accel- 
eration is  reduced, 

a„  = ^ • cos  6l 

-R  -R 

where  6^  is  the  off-sun  tilt  angle. 


Input/ 

Output 


Argument/ 

Common 


Definition 


Current  spacecraft  mass. 


cmss 


I 


A 
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EPRESS-2 


Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

CRA 

I 

C 

G^A  (Equivalenced  to 
ENGINE (15) ) . 

CTILT 

I 

C 

cos  ^ (Equivalenced  to 
ENGINE (16)). 

RMIN 

I 

c 

r . (Equivalenced  to 

TQXn 

ENGINE (9)). 

URElMCl) 

I 

c 

Heliocentric  position  of 
the  spacecraft. 

UEEL(I, 

1)  I 

c 

Heliocentric  position 
vector  of  the  spacecraft. 

EPACC 

Variables : 
Variable 

0 

c 

a 

_T 

Definition 

KPA  I a 1 


Subroutines  Called:  None 

Galling  Subroutine t M0TI^N 

Common  Blocks;  C0NST,  TRAJl 
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S0UR-1 


3.5,17  Subroutine: 
Purpose: 

Method; 

Input/Output: 

Variables 

HB 

JDATE 

UP 

VP 

Local  Variables; 
Subroutines  Called; 
Calling  Subroutine: 
CoDimon  Blocks: 

Logic  Flow: 


S0LAR  CJDATE) 

To  compute  the  position  and  velocity  of  the  planets. 
None 


Input  Argiraent/ 

Output Common Definition 


I 


I 


0 

0 


G Array  of  bodies  for  which  the 

position  and  velocity  are  to 
be  computed, 

A Julian  Date  at  which  the 

position  and  velocity  are  to 
be  computed 

C Array  of  position  vectors 


C Array  of  velocity  vectors 


None 
EPHEM 
M0TI0N 
TRAJl,  TRAJ2 


3,6  Utility  Routines 


A number  of  subroutines  and  function  routines  are  used  in  each 
mode  that  are  (1^  standard  to  many  scientific  computer  programs,  or 
(2)  common  to  more  than  one  MAPSEP  mode.  These  utility  routines  are 
described  in  this  Section,  The  first  group  (3,6,1)  contain  relatively 
minor  and  straightf onward  routines  that  perform  matrix  manipulation 
and  vector  operations.  The  second  group  (3.6.2  through  3,6,11) 
describe  more  complex  utility  routines,  all  of  which  apply  standard 
mathematical  techniques  to  compute  specific  parameters  required  by 
MAPSEP . 

3,6,1  Minor  Subroutines 

The  following  utility  routines  are  straightforward  in  usage  and 
internal  computation.  Their  description  consists  of  name  (and  any 
entry  points),  input  and  output  arguments,  and  function.  No  common 
blocks  are  contained  in  these  routines  and  all  are  subroutines  except 
UD0TV  and  VECMAG  which  are  function  routines. 


I 


I 


i . J 


1 


1 
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Subroutine 
(EnCrv  Points) 

Arguments 

Function 

ADD 

A,  B,  C, 
M,  N 

ADD  parforniB  the  matrix  opera- 
matrices. 

c0py(ic0py) 

A,  B,  M,  N 

C^PY  copies  a real  matrix  A 
into  matrix  B,  where  A and  B 
are  lixN. 

IC0PY  assumes  A and  B are  integer 
matrices. 

C0PYT 

CT,  C,  M,  N 

Copies  the  transpose  of  the  matrix 
CT  into  matrix  C,  where  CT  is  NxM 
and  C is  MxN. 

EIGENV 

A,  H,  F0D, 
W2,  V 

EIGENV  computes  the  eigenvalues 
and  eigenvectors  of  a N X N matrix  A, 
using  Jocobi’s  method  of  successive 
rotations.  F0D  is  the  tolerance  for 
the  off  diagonal  elements  of  A. 

The  eigenvalues  and  eigenvectors 
are  returned  in  the  vector  arrays 
W2  and  V,  respectively. 

IDENT 

C,  N 

Creates  an  NxN  identity  matrix  C. 

INVSQM 

A,  N,  XB, 
RTEST,  IS, 
lY 

INVSQH  inverts  an  NxN  matrix  A 
by  the  Gauss-Jordan  elimination 
method.  The  results  are  returned 
in  A,  INVSQM  requires  four  Nxl 
vectors,  XB,  RTEST,  IX  and  lY, 
for  temporary  storage  (to  keep 
core  requirements  to  a minimum) . 

JdBTIJE 

None 

J0BTLE  is  'Used  by  G0DSEP  to  eject 
a page  and  to  print  out  the  job 
title,  a row  of  asterisks  and  the 
trajectory  time. 

MAT0UT 

A,  NR0W, 
NC0L,  LABEL 

MAT0UT  prints  a matrix  A,  NR^xNC0L, 
with  a 6 character  Hollerith  label, 
LABEL. 

MMAB  (AMAB) 

A,  B,  C,  M, 
L,  N 

MMAB  performs  the  matrix  operation 

Mxn“  t^i^xL* 

AMAB  performs  the  matrfx  operation 
“ ^^^MscN  ^ LxN 

1 

Subroutine 

(Entry  Points)  Argumenta 


Function 


IIMABAT 

(AMABAT) 


A,  B,  C, 
M,  L,  H 


MMABAT  performs  tbe  matrix 
operation  [C]^^  = [a]^j^  * 


is  not  used) , 

AHABAT  performs  the  matrix 


operation  [Cl 

w 


*MxL 


MxM 


MxL. 


MMABT  (AMABT)  A,  B,  C, 

M,  L,  N 


MTB  (AMATB)  A,  B,  C, 

H,  L,  N 


MMABT  performs  the  matrix 
operation 

HxL‘ 


AMABT  performs  the  matrix 

operation  [c]^^  = [c]^^  + 

WjixL  * 


MMATB  performs  the 
operation  = 

WlxN* 

AMATB  performs  the 
operation  = 


tna  trix 
T * 
LxM 


matrix 

C'=^MxH  ^ 


MMATBA  (AMATIA)  A,  B,  C, 

M,  L,  N 


MMATBA  performs  the  matrix 
operation  [c]^^  = [A]T^^  « 


[A], 


Note:  N 


‘lixL  '•^^‘Lxir 

is  not  used. 

AMATBA  performs  the  matrix 
operation  = [c], 


WLh  * * W 


ItxL 


*MxM 

‘LxM* 


JB-IATBT  (AMATBT)  a,  b,  c, 

M,  L,  N 


MMATBT  performs  the  matrix 
operation  = [A]|^,  * 

wL- 

AilATBT , performs  the  matrix 
operation  [0]^^^,  = [C]^^  + 


I 


Subroutine 
(Entry  Points) 

NEGMAT 

SCALE 

SDVAE  (VARSD) 


SUB 


i 


I 


-4 


t 
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Arguments 


Function 


A>  C,  M,  N NEGMAT  negates  a matrix  such 

that 


FACTOR,  A, 
M,  N,  B 


G0VIN, 
C0V0UT»  N 


A,  B,  C, 
M,  N 


A,  B,  C, 
M,  N 


SCALE  multiplies  a matrix  A by 
a scalar  FACT0R  and  returns  the 
result  in  a matrix  B,  fsl,  „ = 
PAOBiR  * lAl^. 

SOVAR  takes  an  NxN  matrix 
C0VIM  of  standard  deviations 
and  correlation  coefficients, 
and  operates  on  the  lower 
triangle  of  C0VIN  to  create  a 
full  covariance  matrix  C0V0UT. 
VARSD  takes  an  NxN  covariance 
matrix  C0VIK  and  operates  on 
the  upper  triangle  to  create 
a matrix  C0V0UT,  where  only 
the  upper  triangle  contains 
the  cqrrelationgcoefficients , 
the  diagnei  the  standard  devi- 
ation and  the  lower  triangle 
remains  unchanged. 

SUB  subtracts  matrix  B from 
matrix  A and  returns  the  results 
as  matrix  C.  The  dimensions  of 
A,  B,  and  C are  MxH. 

X 

SUBT  subtracts  matrix  B from 
matrix  A and  returns  the  results 
as  matrix  C.  The  dimensions  of 
A and  C are  MxN,  B is  HxM. 


SDBT 
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Subroutine 
QSntry  Points) 

Syi-ITRZ 

(SYML0,  S^MUP) 


13D0TV 


UNITV 


UXV 


VECMAG 


Arguments 
PSYM,  H 


U,  V 


U,  UV 


U,  V,  W 


u 


Func  ti on 


SYlfTEZ  taltes  an  NxN  matrix 
PSYM  and  makes  it  symmetric  by 
averaging  each  corresponding 
off-diagonal  pair. 

SYMLff  takes  an  NxN  matrix  PSYM 
and  makes  the  upper  triangle 
equal  to  the  lower  triangle. 
SYMDP  takes  an  NxN  matrix  and 
makes  the  lower  triangle  equal 
to  the  upper  triangle, 

UD0T\r  performs  the  vector 
operation  U • V>  three 
dimensional  vectors. 

UNITV  take  a three  dimensional 
vector  U and  makes  it  a unit 
vector  UV. 

UXV  performs  the  vector  opera- 
tion UxV  = W,  for  three  dimen- 
sional vectors. 

VECtlAG  computes  the  magnitude 
of  a three  dimensional  vector. 


ZER0M 


A,  MR0W, 
MG0L 


ZER0M  creates  a MR0W  x MC0L 
null  matrix  A, 


1 


-J 


! 
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BPIAHE-1 

3.6.2  Subroutine ; BPIANE  (R,  V,  TO,  NTP> 

Purpose;  To  compute  osculating  B-plane  parameters 

(Section  4,2  of  Reference  1)  relative  to  a 
specified  body  from  a cartesian  state  vector. 

Also,  BPLAKE  computes  a number  of  other  osculat- 
ing parameters,  e.g,,  radius  of  closest  approach 
(r  ) . 

Method:  Given  the  spacecraft  planeocentric  ecliptic  posi- 

tion and  velocity  vectors,  ^ and  v respectively, 
at  time  t relative  to  a target  body,  compute  the 
B-plane  parameters,  B • asso- 

ciated conic  elements.  In  order  that  all  B-plane 
parameters  are  computed,  the  target  relative 
osculating  conic  should  be  a hyperbola  with  its 
radius  of  closest  (r  ) approach  inside  the  sphere 

C3 

of  influence  (SOI)  of  the  target  body.  Assuming 
that  closest  approach  is  within  the  sphere  of 
influence  Then  using  the  orbital  elements 

(a,  e,  i, /I.  , M),  calculated  from  the  conic 

formulas  of  Section  3,6,4 


’'CA  ° 


0 


BPIANE-2 


5l7i 


where  is  the  hyperbolic  excess  velocity. 
The  K,SjT  coordinate  system  for  the  B-plane 
parameters  is  defined  as 

ft  V 

^ V 

K ft  A 

T - S X k 

A Aft 

R = S X T 

ft 

where  k is  a unit  vector  in  the  direction  of 
the  Z axis  in  planetocentric  ecliptic  coordi- 
nates. The  magnitude  of  the  B vector  is 

IB  I = y P |a!  * 

and  the  unit  veccor  in  the  direction  of  ^ is 
E - S X 

Ir.  X vl 

therefore  the  B-plane  parameters  are 


J 


i 
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Two  o«-.her  important  parameters  to  know  are  the 
time  of  closest  approach  and  the  time  at  the 
sphere  of  influence,-  The  time  at  closest 
approach  (t^^)  is 


t * = t 

^CA  n 


where  M is  the  value  of  the  mean  anomaly  at  t 
and  n is  the  mean  motion.  The  time  at  the 
sphere  of  influence  is  computed  from 

the  following  equations 


cosbf  - “ (1  - —) 
e a 


sinhF  - sign  (r  « v)  J(^cosh'F^') ^ - 1 


coshF 


SOI  6 


= 1 (1  - 


sinhT 


SOI  ' =1-8''  fe.  • z)  / 


(coshFgQ^)  -1 


‘soi  ' n [C®“*^SOI  - ® 


H-  (F  - Zgoi) 


For  the  case  where  closest  approach  is  outside 
of  the  sphere  of  influences  the  sphere  of 


BPIANE-4 


J 


.1 
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influence  is  assumed  to  be  closest  approach. 

All  calculations  are  the  same  except 

* , 

^SOX  ^CA 


\fhen  closest  approach  is  outside  the  sphere 
of  influence,  the  B-plane  parameters  are 
undefined;  but  closest  approach  parameters  can 
be  defined  from  the  following  equations. 


ccsE  = 

a -f) 

e'sinE  = 

* 2L 

y •% 

//X  a 

tanE  = 

sinE 

cosE 

M 

E - e sinE 

*^GA 

t -a 

n 

Xnnut /Output: 

Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

R 

I 

A 

Position  vector  relative 
to  the  target  body. 

V 

I 

A 

Velocity  vector  relative 
to  the  target  body. 

TO 

X 

A 

Time  associated  with  R and 
V. 

BDT 

0 

C 

B • T. 
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Input/ 

Variable Output 


Argument / 
' Common 


Definition 


BDR 

0 

c 

B • R. 

TS0I 

0 

c 

Time  at  the  sphere  of  influ- 
ence,  tgQj* 

NTP 

I 

A 

Number  of  the  target  body. 
This  flag  is  used  to  locate 
the  SOI  size  and  mass  of 
the  target  body  in  the  SPHERE 
and  PMASS  arrays. 

VHP 

0 

c 

Hyperbolic  excess  velocity, 

%’ 

PI 

I 

c 

3.14159 

PMASS 

I 

c 

Array  containing  the  masses 
of  the  planets. 

SPHERE 

I 

c 

Array  containing  the  sphere 
sizes  of  the  planets. 

VGA 

0 

c 

Velocity  at  closest  approach. 

RCA 

0 

c 

Radius  of  closest  approach. 

TGA 

0 

c 

Time  of  closest  approach. 

A 

0 

c 

Semi -major  axis  of  the  oscu- 
lating conic. 

E 

0 

c 

Eccentricity  of  the  osculatinj 
conic. 

XING 

0 

c 

Inclination  of  the  osculating 
conic. 

i^MEGA 

0 

c 

Longitude  of  the  ascending 
node. 

S0MEGA 

0 

c 

Argument- of  periapsis. 

Xl-lEAN 

0 

c 

Mean  anomaly. 
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Variable 

Input/ 

Output 

Argument/ 

Common  Definition 

m 

0 

C True  anomaly. 

BIG 

I 

G 10^^. 

local  Variables: 

Variable 

Definition 

GMU 

Mass  of  the  target  body. 

KS 

SOI  size  of  the  target  body. 

XN 

Inverse  of  the  mean  motion,  n 

SV 

s 

BV 

A 

B 

B 

12.1 

TMAG 

iS! 

RVX,  Rvy, 

RVZ 

A 

Components  of  R 

. THETA 

A 

Angle  between  B and  the  T axis. 

C0SHF1 

cosh  F 

C0SH2 

cosh  Fgoj. 

SIHFl 

sinh  P 

SIKF2 

sxnh  Pgoj 

FI 

F 

F2 

^SOI 

DT 

Time  from  the  sphere  to  jc. 

CE 

cos  E 

' SE 

sin  E 

EGG 

E 

XM 

Mean  anomaly,  M 
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Subroutines  Called;  . C0NIC 
Galling  Subroutines:  TC^MP,  TREK 


C ommo nB 1 ocks ; 


C0NICS,  C0NST,  EPHEM,  TARG 
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3,6.3  Subroutine;  CARTES  (A,  E,  XI,  W,  XM,  GMO,  R,  V) 


Purpose: 


Method: 

Input /Ou tput; 

Variable 

A 

E 

XI 

W 

GMU 

R 

V 

PI 

XM 

Local  Variables: 
Variable 
ITT 
HITT 
PP 


To  compute  the  cartesian  state  vector  corres- 

* • 
ponding  to  a set  of  orbital  elements  at  a given 

time.  Time  is  implicit  in  the  Mean  Anomaly  XM. 

Conic  Formulae  for  Elliptic  and  Hyperbolic 

Motion. 


I/O 

I 

I 

I 

I 

I 

I 

0 

0 

I 

I 


Argument/ 

Common  Definition 

A Semi-major  Axis  (a) 

A Eccentricity  (e) 

A Inclination  (i) 

A Longitude  of  the  Ascending 

Node  (n) 

A Argument  of  Periapsis  (tu) 

A Gravitational  Constant  (p) 

A Position  Vector  (r) 

A Velocity  Vector  (v) 

G 3.14159. 

A Mean  Anomaly  (M) 

Definition 

Iteration  counter  for  Kepler’s  'Equation 
Maximum  iterations  for  Kepler’s  Equation 
Derivative  of  Kepler’s  Equation  (f’(x^)) 
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Variable ' 
ECC 
FN 

SQE 

TA 
• EH 
SINHE 
C0SHE 
SINHEC 
G^SHEC 
P 

TH 

. CdSTH 
SINTH 

SIN0 

C^SW 

CfISI 

SIHI 

VA 

VB 

VC 


Definition 

Eccentric  Anomaly  (x  ) 

n 

Kepler *s  Equation  (E(x^') 

|mzr' 

V ll-El 

True  Anomaly 

Magnitude  of  the  Position  Vector 
XM/E 

yi+SINHE^  ^ 

Hyperbolic  Sine  of  ECC 

'Hyperbolic  Cosine  of  ECC 

Setai-latus  Rectum 

Argment  of  Latitude 

Cosine  of  TH 

Sine  of  TH 

Cosine  of  i}> 

Sine  of 

Cosine  of  W 
\ 

Cosine  of  XI 
Sine  of  XI 

Vghu/p^ 

SINTH  + E * SIHW 
C^STH  + E * C/iSW 
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The  orbital  elements  a,  e,  i,  S),  w and  the 
gravitational  constant 
The  position  r_  and  the  velocity  ;v. 

First  we  must  find  the  eccentric  anomaly  E for 
the  elliptical  case  and  H for  the  hyperbolic 
in  terms  of  M,  the  mean  anomaly.  For  the 
elliptical  case 
M = E - e*sin  E 
and  for  the  hyperbolic  case 

M = e-sinh  H - H 

Since  both  equations  are  transcendental  we  must 
solve  them  interatively . The  method  used  to 
solve  these  equations  is  Newton's  Method  of 
the  form 

f (x  . 

X = X ^ 

n+1  n f*(x  ) 

n 

Therefore,  for  the  elliptical  case  the  expression  is • 

E -e*sinE  -M 

■p.  . = -R  _ _2 n 

n-fl  a l-e^cosE 

n 

and  for  the  hyperbolic  case  the  expression  is 

e-sinh  H -H  -M 
TT  = w — P n 

n+l  n e-cosh  H -1  - . 

n 

Depending  on  the  kind  of  orbit  defined  by  the  orbital  elements, 
the  appropriate  equation  is  iterated  upon  until 


Remarks : 


Given: 


Find: 


523 
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or 


for  a finite  number  of  iterations. 

Now  that  we  have  E or  H we  can  find  _r  and  v 
from  the  following  equations: 


f (x) 

f ' (x) 


Elliptical 


tatl  Cf)  tan  (|) 


r = a Cl-e‘CosE) 
p = a (l»-e^) 


Hyperbolic 

<|>  = (f^)-  < 

r =,a  (l-e*cosh  H) 
p = a Ce^-1) 


= r 


cosSl*cos0  - sinJ2‘sin6*cos  i 
sinfl*cos6  + cosfi*sin6  *cos  i 
sin6*sin  i 


where  6 = m + f 


cosn(sin0  + e^sintu)  + sini2*cos  i (cos0  + e»cosw) 
sinfl(sin9  -t-  e*sinw)  - cos2*cos  i (cos6  + e'cosw) 
- (cos0  H-  e*cosu)  *sin  i 


PJICM 
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3,6*A  Subroutine: 

Purpose: 

Method : 

Remarks : 

Given: 

Find: 


C^NIC  (R,  V,  GMU,  A,  E,  XING,  ^lEGA,  S0MEGA, 
XMEAH,  THETA)  ^ 

To  compute  the  orbit  elements  given  a state 
Vector  and  the  corresponding  time. 

Conic  Formulae  for  Elliptic  and  Hyperbolic 
motion.  ‘ ^ 


The  position  vector  the  velocity  vector  v 
and  the  gravitational  constant  p. 

The  orbital  elements  a,  e,  i,  11  w and  H 
and  also  8 
h r_  X V 
w “ h/h 
r = r*v 

V 

p = h/p 


p_  = e^/e 
£ - w X 

h-r^ 
sin0  = — 

h2-  p 
cos8  “ ■ _ 


Ji/ 


C0NIC-2 


Now 


1 

a = — 
a 


= Id 


X = cos 


(w_) 


n = 


tan  ^ (w  /-w  ) 
X y 


tan  CPa/^g) 


u 

0 = tan  (sin0/cos0) 


-1 


cosE  = 1 - r*a 


sinE  = 


r .a 

V 


for  the  elliptical  case 
--1 


E = tan  (sinE/cosE) 
M - E - e*sinE 


for  the  hyperbolic  cas^ 

sinhH  - sinE/e 

coshH  “ cosE/e 

H " ln(sinh  H - cosh  H) 

M e-sihh  H - H 


Input /Out pu t : 
Variable 


I/O 


Argument/ 

Common 


- Definition 


R 

V 

TO 

GHU 

A 

E 

XING 


I 

I 

I 

I 

0 

0 

0 


A 

A 

A 

A 

A 

A 

A 


Position  Vector  (r) 

Velocity  Vector 
Time  Corresponding  to  ;r  ijr^d  v 
Gravitational  Constant  (u) 
Semi-Major  Axis  (a) 
Eccentricity  (e) 

Inclination  of  the  orbit 
plane  (i) 
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Variable 

1/0 

Argument/ 

Common 

OMEGA 

o’ 

A 

SOMEGA 

0 

A 

XMEAN 

0 

A 

PI 

I 

C 

Definition 

Longitude  of  the  Ascending 
Node  CJl)  ' 

Argument  of  the  Periapsis  (u) 
Mean  Anomaly 
3.14159 


local  Variables: 
Variable 
H 

HV 

OT 

EM 

VM 

EDV 

EV 

AA 

P 

PV 

QV 

theta’ 

STH 

CTH 

EGG 


Definition 

Magnitude  of  the  Angular  Momentum 
Vector  (h) 

Angular  Momentum  Vector  (h) 

Unit  Vector  in  the  direction  of  Cw) 
Magnitude  of  r_ 

Magnitude  of 
r^’V 

1 

a 

Semi-Latus  Rectum 

^/e 

h X (e/e) 

Argument  of  latitude 
Sine  of  THETA 
Cosine  of  THETA 
Eccentric  Anomaly 


C0NIC-4 


Variable 

SB 

FGC 

CHF 

SHF 

Subroutines  Called: 
Calling  Subroutines: 
Common  Blocks: 


Befinltion 
Cosine  of  ECC 
Hyperbolic  Anomaly 
Hyperbolic  Sine  of  FCC 
Hyperbolic  Cosine  of  FCC 


UXV,  VECMAG,  UHITV,  UD0TV 

BPLANE,  PR0P,  EPHERR,  0D,  PGM,  DATAT, 

C0MICS,  CjfiHST 


PEGS 


Logic  Flow: 
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3.6.5  Subroutine;  EC0MP  (XX,  VV,  TST(?P,  NTARG,  KTP,  LISTAR,  ETA) 


Purpose; 


To  compute  the  transformation  matrix  which  transforms 
state  vector  deviations  into  target  variable 
deviations  at  the  target  time;  namely 


1 


B(T^,  Tg,  T^) 

^<X,  Y,  Z,  X,  Y,  Z) 


> 

(mx6) 


Me  thod : 


Remarks : 


Input/Output: 

Variable 

XX 

W 


where  m is  the  number  of  target  variables. 

Small  changes  to  the  trajectory  state  vector  at 
the  target,  time  permit  this  transformation  matrix  to 

be  computed  by  numerical  differencing.  Central 
difference  partial  derivatives  are  used. 

Currently,  the  state  vector  deviations  used  to 
generate  the  numerical  partials  are  10  km  for 
position  and  10  m/sec  for  velocity.  For  some 
applications,  in  particular  for  missions  to  the 
inner  planets  (Mercury  and  Venus),  these  values 
may  have  to  be  reduced. 


Input/ 

Output 

Argument/ 

Common 

Definition 

I 

A 

State  vector  position 

components. 

I 

A 

State  vector  velocity 

components. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TST0P 

I 

A 

Epoch  of  state  vector 
evaluation;  generally  the  target 
time. 

LI STAR 

I 

A 

List  of  target  variable  codes 
to  be  passed  to  TC0MP. 

NTARG 

1 

A 

Kuraber  of  target  variables. 

NTP 

I 

A 

Target  planet  number-. 

ETA 

0 

A 

- matrix  of  partial 
derivatives . 

Local  Variables: 

Variable 

Definition 

DEL 

State  vector  perturbations. 

XTi 

Backward 

step  target  variables* 

• XT2 

Forward 

step  target  variables. 

Subroutines  Called:  TG0MP 

Galling  Subroutines:  LGHID. 

NGUID,  GUIDE 

, NLGUID,  REFTRJ,  STMTAR 

Common  Blocks;  W0RK 

Logic  Flow: 


I 

! 


1 


1 
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3,6.6  Subroutine: 

ENC0N  (T) 

Entry  Points: 

REFINE,  0SCHL 

Purpose ; 

To  prop'’gate  the  reference  conic  from  rectification 
to  time  t. 

Method : 

Conic  equations  for 
See  MAPSEP  Analytic 
Appendix  1 (Section 

elliptical  and  hyperbolic  orbits. 
Manual  (Reference  1), 

9.1), 

Remarks : 

Common  block  ENC0N  contains  local  variables  (denoted 
by  asterisk)  to  save  these  values  when  GODSEP  (uslns 
the  PDOT  option)  temporarily  replaces  the  TR^J  over- 
lay with  the  MEAS  overlay.  Thus,  C0Mt^5N /EN C0N / is 
required  only  for  a very  specific  application. 

Input/Outpuf ; 
Variable 

Input/  Argument/ 

Output  Common 

Definition 

T 

I A 

Trajectory  time  in  seconds 

TST0P 

I C 

The  sign  cf  TST0P  determines 
whether  the  propagation  is 
backwards  (-)  or  forward.*;  (+) . 

NPRI 

I C 

f 

A flag  that  is  used  to  locate 
the  mass  of  the  primary  body 
in  the  PMASS  array. 

PMASS 

I C 

Array  containing  the  masses 
of  all  the  bodies. 

ALPHA 

0 C 

Inverse  semi-major  axis  (^) • 

UTRUE 

VTRUE 

I C 

I C 

Position  vector  at  rectifica- 
tion (r  ) . 
o 

Velocity  vector  at  rectifi- 
cation (7  ), 

0 

UENC 

0 C 

Osculating  conic  position 
vector  at  time  t. 

UENCM 

0 C 

Magnitude  of  UENC. 

VENC 

0 c 

Osculating  conic  velocity 
vector  at  time  t. 

toCM 

0 C 

Magnitude  of  VENC. 
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Local  Variables; 
Variable 

* TZER0 
GMU 

A UZER0 

* VZER0 
CZER0 

UALPHA 

* ubeta 

BETA 

* A1 

* A2 

* A3 

Cl 

C2 

* DELE 

* X 

HV 


Definition 


Time  of  rectification  (t^). 
Mass  of  the  reference  body. 


Position  vector  at  t , (r  ), 

o —o 


Volocitv  vector  at  t 


o- 


1 + e cos  for  the  elliptical  case. 

1 + e cosh  for  the  hyperbolic  case. 

1 - e cos  E for  the  elliptical  case, 
o 

e cosh  - 1 for  the  hyperbolic  case. 

Absolute  value  of  UALPHA, 

Absolute  value  of  ALPHA, 

Mean  angular  motion  (n) , 

e sin  for  the  elliptical  case* 

e sin  for  the  hyperbolic  case, 

e CDS  for  the  elliptical  case, 

e cosh  for  the  hyperbolic  case, 

e exp  ][  H^’]for  the  hyperbolic  case, 

e exp  [-H^]for  the  hyperbolic  case. 

E -E  for  the  elliptical  case, 
o 

exp  [h  "H^l  -1  for  the  hyperbolic 
case. 


The  angular  momentum  vector  (r  x v ). 

0 o 


ARGI 


1 - ~ [ 1 - cos (E  -E^)  ] for  the 
o 

elliptical  case. 


* actually  contained  in  C0MM0N/ENC0N/ 
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Variable 


Definition 


ARG2 


ARG3 


ARG4 


1 " ~ f cosh  (H  -H  ) -ll  for  the 
r *•  o ” 

o 

hyperbolic  case. 


” ^ sin(E  ”E^)  (sin  E - sinE^)^ 
for  the  elliptical  case. 

™^e  (sinh  H -sinh  H^)  -sinh  (h  “H^)| 
for  the  hyperbolic  case. 


o 

case. 


sir.  (E  ”E^)  for  the  elliptical 


rr 

o 


case. 


sinh  (H  “H^)  for  the  hyperbolic 


1 “ ~ t ^ ^ -E^)^for  the 

elliptical  case. 


1 “ [ cosh  (H  -H  ) -ll  for  the 

r *■  o -• 

hyperbolic  case. 


Subroutines  Called! 
Calling  Subroutines i 


Common  Blocks : 


VECM&G,  UXV,  UD0TV 
M0TI0N 

ENC0N,  EPHEM,  TIME^  TRAJl,  TRAJ2 


EKC0N-5 


1 


1 


i 


1 


L 
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3,6,7  Subrojutine:  GENINV  (A,  M,  N,  B) 

Purpose ; To  compute  an  inverse  B for  any  m x n matrix  A, 

Remarks;  There  are  three  cases  for  which  GEKIKV  will 

compute  an  inverse. 


Case 

_1: 

m < 

n 

B = 

a'^[a  a 

Case 

m = 

n t 

B « 

> 

1 

Case 

m > 

n 

B ==  a]  A^ 


The  matrices  A and  B can  share  the  same  location 
only  if  m = 

Input /Out put: 

Input/  Argument/ 

Variable  Output  Common  ' Befinition 


A 

I 

A 

The  ma.tr ix  to  be  inverted. 

M 

I 

A 

Number  of  rows  in  A (Columns 
in  B). 

N 

• 

Number  of  columns  in  A 
(Rows  in  B), 

E 

I 

A 

Inverse  of  A, 

Variables: 

« 

Variable 

Definition 

W0RK 

Array  used 

for  temporary  calculations. 

T 


. 

GENINV-2 

Variable 

- 

■k 

De  f ini Cion 

Subroutines  Called: 
CallinR  Subroutines; 
Common  Blocks; 

Logic  Plow: 


. .Number  of  needed  locations  for  tempo 
rary  calculations, 

Rumber  of  needed  locations  for  the 
inverse. 

C0PY,  RMABT,  MMATB,  INVSQM 
GUIDE,  LGUID,  NLGUID 
W0RK 


GENINV 


Compute : 
MIN 
L0C 


1 C0PY 

W0RK 

==  A. 

MHABT 

W0RK 
— ..1 

i:  1 

= AA  f 

! 
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.6.8  Subroutine:  MPAK  (A,  M,  N,  ASUB,  MSUB,  NSUB) 


Purpose : 


Method : 


MPAK.  is  used  to  (1)  copy  subblocks  of  matrix  A into  a 
matrix  ASUB,  (2)  copy  the  diagonal  elements  of  matrix  A 
into  ASUB  which  can  be  a vector  (or  row  matrix)  or 
(3)  ’^pack*'  the  matrix  A.  M and  N are  the  dimensions 
of  Aj  and  MSUB  and  NSUB  are  the  dimensions  of  ASUB. 

An  mxn  matrix  is  stored  internally  in  the  computer  by 
columns.  Take  the  3 x 3 matrix 


1 


) 


1 

®11 

®12 

®X3 

E = 

®2I 

®22 

®23 

. ®31 

®32 

n> 

LO 

1 

In  the  computer,  E is  stored  as 


Column  1 


Column  2 


^11 

®21 

®31 

®12 

®22 

®23 

®13 

®23 

®33 


Column  3 
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MPAK  uses  this  iniormatioa  to  perform  one.  of  the  three 
following  cases,  (1)  to  copy  sub  blocks  of  E,  (2)  to 
copy  the  diagonal  elements  of  E,  and  {3)  to  pack  E. 


Case  1;  Given  a 3 x 3 matrix 


- E = 

copy  the  sub  block 

F = 


^11 

^12 

®13 

^21 

®22 

®23 

^31 

®32 

®33 

ID 

to 

t-< 

®22 

®31 

®32 

into  the  2x2  matrix  F.  In  order  to  accomplish  this, 
MPAK  must  know  the  first  element  of  the  sub  block  to 
be  copied.  For  this  problem,  it  is  ^21'  FORTRAN 

call  to  MPAK  must  transmit  this  information.  Such  a 
call  would  be  . 


CALL  MPAK  (E(2,l),  3,  3,  F,  2,  2) 


Case  2:  Given  a 2 x 2 matrix 

, T ®11  ®12 

A « 

. ®21  ^22  . 


copy  the  diagonal  terms  a^^  and  322*  2x1  row 

vector  B.  The  call  to  MPAK  is 


CALL  MPAK  (A,  3,  2,  B,  1,  2) 
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MPAK 


Dhe  dimetisio'n  of  A is  given  as  3 x 2.  Incernally  in, 
the  computer,  A is-  thought  of  as  being  stored 


Column  1 


*11 


‘21 


Column  2 


*12 


22 


This  particular  call  makes  MPAK  copy  the  elements 


and  322  into  B, 


Case  3: 


Given  the  3 x 3 matrix 


A = 


a 

b 


c 

d 


pack  it  so  that 


A = 


Pack  as  used  here,  means  to  order  the  nonzero  elements 
of  A into  consecutive  locations  internally.  If 


r'h 

■ 


a 

b 


A ^ 


e 

£ 

o 

o 


HPAK-A 


n 
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than  packing  A would  result  in 


o o 

o o 

o o 


The  appropriate  call  to  MPAK  would  be 


4 . 


GALL  MPAK  (A,  3,  3,  A,  2,  2) 

for  the  first  example  (3  x 3 A),  and  for  the  second  example 
CALL  MPAK  (A,  4,  4,  A,  3,  3) 


Ihput/Output : 

Input/ 

Variable Output 


A I 

h:  I 

R-  ,I 

ASUB  0 

HStJB  I 

NSUB  I 


Local'  Variables: 
Subroutines  Called; 
CTarlTing  Subroutines: 
Common  Blocks : 


Argument/ 

Common 

A 

A 

A 

A 

A 

A 


Definition 

The  matrix  to  be  operated  on 
The  number  of  rows  of  A 
The  number  of  columns  of  A 
The  resultant  matrix 
The  number  of  rows  of  ASUB 
The  number  of  columns  of  ASUB 


None 

Rone 

SIZE,  SDAT,  (GODSEP,  et  alO 


None 


I 
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3,6.9 

Purpose 


Method : 


Subroutine;  MUNPAK  (ASUB,  14SUB,  NSBB,  A,  M,  N) 

MUKPAK  is  used  to  copy  a matrix  ASUB  into  a 
large  matrix  A,  to  copy  a row  matrix  ASUB  onto 
the  diagonal  of  A or  to  '’unpack"  the  matrix 
ASUB. 

MUNPAK,  like  >IPAK  takes  advantage  of  the  way  a 
matrix  is  stored  internally  in  a computer, 
MUNPAK  performs  the  reverse  function  of  MPAK; 
(1)  copy  a matrix  into  a larger  matrix,  (2) 
copy  a row  matrix  onto  the  diagonal  of  a matrix 
or  (3)  unpack  the  matrix. 

Case  1;  Copy  a 2x2  matrix 


^11 

^12 

A 

. ^21 

^22  . 

• 

a 3x3  matrix 

B 

so  that 

• 

" " B' 

0 

0 

0 

I 

0 

^1 

^2 

1 

i 

0 

®21 

®22 

This  is  accomplished  by  specifying  where  the 
first  element  of  A is  to  be  located  in  The,  • 
FORTRAN  call  to'  MUNPAK  is 
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CALL  HUNPAK  (A,  2,  2,  B (2,  2),  3,  3) 
CasB  2;  Copy  the  1x2  row  matrix 

* 

^ " I ®12  1 


into  the  2x2  matrix  B,  In  the  call  to  tlUHPAK, 
the  dimensions  of  B are  given  as  a 3x2,  The 
net  result  is 


B 


The  call  to  MtfNPAK  is 

CALL  MUNPAK  (A,  1,  2,  B,  3,  2). 
Case  3;  Given  the  3x3  matrix 


’'unpack"  it  so  that 


e 

d 

0 


KUKPAK-3 


5W 


The  call  to  MUNPAK  Co 

accomplish  this  opera ti of* 

is 

GAII,  MOT^PAK  (A, 

2*,  2,  A,  3,  3), 

Input /Output; 

Variable 

Input/  Argument/ 

Output  Coimnon 

Definition 

ASUB 

I 

A 

The  matrix 

to 

be  operated 

on. 

ilSUB 

I 

A 

The  number 

of 

rows  of  ASUB, 

H'SUB 

I 

A 

The  number 
ASUB. 

of 

columns  of 

A 

0 

A 

The  resultant  matrix. 

H 

I 

A 

The  number 

of 

rows  of  A, 

N 

X 

A 

The  number 

of 

columns  ‘of  A* 

Local  Variables: 

None 

Subroutines  Called; 

None 

- 

Galling  Subroutines: 

SIZE, 

SDAT,  (G0DSEP, 

eC  aL) 

Common  Blocks; 

None 

549 


RNUM-1 


3,fe.lO  function; 
Purpose! 

Method! 


Input/Output : 

Variable 

SIGMA 

IRAK 

RKUM 

Local  Variables: 
Variable 

D1 

P2 

Subrout i nesCa lied 


RNUM  CSIGMA,  IRAN) 

To  sample  a uniform  distribution  and  generate 
random  samples  on  a Gaussian  distribution. 

Two  random  samples  from  a uniform  distribution 
are  made  to  form  a random  sample  on  a zero-mean, 
Gaussian  distribution  which  has  a unit  standard 
deviation.  The  random  variable  on  the  Gaussian 
distribution  is  scaled  according  to  the  input 
standard  deviation,  SIGRA,  For  IRAN  equal  to 
zero,  a one-sigma,  forced  Monte  Carlo  sample  is 
computed  and  returned. 


Input/  Argument/ 

Output Common Definition 


I 


I 


0 


A Standard  deviation  of  the 

random  variable  being 
sampled. 

A Plag  to  indicate  whether 

or  no't  a forced  Monte  Carlo 
sample  is  to  be  returned, 

A Resultant  random  variable. 


Definition 


First  random  sample  from  a uniform 
distribution. 

Second  random  sample  from  a uniform 
distribution. 


EANF 
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Calling  Subroutines:  CSAMP,  EXGUID,  EPHSMP,  ERRSMP,  DN0ISE 

Gonnaon  Blocks;  CI^NST 
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3.6.11  Subroutine;  TC«SHP  (XX,  W,  TST0P,  NTP,  NTARG,  LESTAR,  XTARG, 

IPASS) 

Entry:  TC0MP1 

Method;  The  BPLANE  utility  routine  is  called  to  compute 

osculating  values  of  target  variables  correspond- 
ing to  a given  state  vector.  Individual  target 
values  are  loaded  into  a target  vector  according 
to  the  target  codes  in  the  LISTAR  array. 


Input/Output: 

Variable 


Input/  Argument 

Output Common 


Def irltion 


XX 

I 

A 

State  vector  position  components 

w 

I 

A 

State  vector  velocity  components 

TST{SP 

I 

A 

Epoch  corresponding  to  the  state 
veqtor;  generally  the  target  time. 

NTP 

I 

A 

Number  of  the  target  planet . 

NTARG 

1 

A 

Number  of  target  variables' 

LISTAR 

I 

A 

List  of  target  variable  codes. 

XTARG 

0 

A 

Target  vector. 

IPASS 

I 

A 

Flag  to  control  logic  transfer. 

VHP 

I 

C 

Hyperbolic  excess  velocity. 

RCA 

I 

C 

Radius  of  closest  approach. 

BDT 

I 

C 

T-coordinate  in  the  B-plane. 

BDR 

I 

C 

R-coordinate  in  the  B-plane, 

TS0I 

I 

c 

Conically  interpolated  time  of 
arrival  at  the  sphere  of 
influence. 
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Input/ 

Variable  Output 


Argument 

Common Definition 


TCA  I C 

A I C 

E I C 

XINC  I C 

0MEGA  I C 

S01iEGA  I C 

XMEAK  I C 

TA  I C 


Conically  interpolated  time 
nf  arrival  at  the  radius  of 
closest  approach. 

Semi-major  axis  evaluated  on 
an  osculating  conic. 

Eccentricity  evaluated  on  an 
osculating  conic. 

Inclination  evaluated  on  an 
osculating  conic. 

Argument  of  the  ascending 
node  evaluated  on  an  oscu- 
lating conic „ 

Argument  of  periapsis  evalu- 
ated on  an  osculating  conic. 

Mean  anomaly  evaluated  on  an 
osculating  conic. 

True  anomaly  evaluated  on  an 
osculating  conic 


Local  Variables;  None 
Subroutine  Called;  BPLANE,  VECMAG 


Galling  Subroutines;  EC0MP,  RLGUID,  EEFTRJ,  SIMSEP,  STMTAR,  TREK 
Common  Blocks;  C0NSTj  TARGET 

Logic  Flow;  See  Listing 


Page  553  has  been  deleted. 
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'j.O.J?  C/AU,  MJN,  NMUN,  WAIC,  UH,  'im,  THALT, 

IMANj  X0UT,  M0UT,  THETA,  PHI) 

Purpose:  To  complete  the  and  ^ matrices  which  are 

used  for  trajectory  targeting  over  a specified 
trajectory  arc. 

Method:  THC0MP  computes  and  stores  certain  partitions 

of  the  augmented  state  transition  matrix  into 
the  (i)  ^ and  ^ matrices  as  outlined  in  Appendix 
7 of  the  Analytic  Manual. 

Remarks:  This  routine  is  used  by  T0PSEP  and  SIMSEP  for 

evaluating  © ^ and  ^ , T0PSEP  also  has  an 
alternate  set  of  logic  which  uses  a numerical 
differencing  algorithiir.  for  the  same  purpose, 

I 

SIMSEP  uses  THC0MP  exclusively. 

Input/Output: 

Input/  Argument/ 

Variable  Output Common Definition 


XIN 

I 

A 

Initial  state  vector. 

MIN 

I 

A 

Initial  S/C  mass . 

NPRIN 

I 

A 

Primary  body  code  to  which 
XIN  is  referenced. 

NATO 

I 

A 

Number  of  active  thrust 
controls , 

IJU 

I 

A 

Array  of  active  thrust 
control  codes. 

TG0 

I 

A 

Initial  trajectory  time- 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

THALT 

I 

A 

Final  trajectory  time. 

IMAM 

I 

A 

Guidance  maneuver  number. 

X0UT 

0 

A 

Output  state  vector. 

M0UT 

0 

A 

Output  S/C  mass. 

THETA 

0 

A 

Output  control  to  state 

transition  matrix,  ^0  . 

u 

PHI 

0 

A 

Output  state  to  state 
transition  matrix, 

THRUST 

I 

C 

Array  of  thrust  controls. 

BLAm 

I 

c 

Blank  common  storage  of 
trajectory  variables,  i.e, 
the  augmented  state  transi- 
tion matrix. 

TEVHT 

I 

c 

Trajectory  event  time. 

MEVEKT 

I 

c 

Trajectory  event  test  flag. 

L0CTC 

I 

c 

Location  in  blank  common  of 
the  first  element  in  the 
augmented  state  transition 
matrix. 

lAUGDC 

I 

c 

Flag  used  to  augment  the 
transition  matrix  for  inte- 
gration. 

TREE 

I 

c 

Initial  trajectory  time 
transmitted  to  TRAJ  in  sec- 
onds . 

TOUR 

I 

c 

Final  trajectory  time  trans 
miuted  to  TRAJ  in  seconds, 

INTEG 

I 

c 

Flag  to  indicate  to  TRAJ 
that  the  augmented  state 
transition  matrix  is  to  be 
integrated. 

ICALL 

I 

c 

TRAJ  initialisation  flag. 
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Local  Variables; 

Var  iable 
NPHI 

JJO 

JJl 

JJ2 

PHI21 
PHI  3 2 

THET21 

THET32 

Subroutines  Called: 

Calling  Subroutines: 
Common  Blocks: 


Definition 


Dimension  of  the  augmented  state  transition 
matrix . 

} Logic  control  flag. 

1.  Temporary  storage  for  the  matrices  output 
J from  TRAJ . 

A 

■)  Temporary  storage  for  the  ® matrices  output 
J from  TRAJ.  “ 

C«SJPY,  IC0PY,  IDENT,  IZER0M,  MMAB,  MPAK,  TRAJ, 
ZER0M. 

STMTAR,  REFTRJ,  NLGUID. 

C0NST,  TIME,  TRAJl,  TRAJ 2,  W0RK,  (BLANK). 


THC^MP-4 


Logic  Flow: 


Initialize  TRAJ  control  variables 
(lAUGDC,  TDUR,  TREF,  INTEG,  bffiVENT,  etc) 
for  integrating  the  augmented  state 
transition  matrix. 


Compute  next  TEVNT  from  the  list  of 
active  thrust  control  indices,  IJH. 


Propagate  the  trajectory  to  next  event 
and  compute  the  augmented  state  transi- 
tion matrix. 


Store  partitions  of  the  augmented  state 
transition  matrix,  BLANK,  into  PHI 32, 
THET32. 
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3.7  Subrotitine ; EEFSEP 

Purpose;  To  monitor  t-he  subroutine  flow  in  the  REFSEP  mode 

of  MAPSEP. 

Remarks ; A complete  view  of  the  REFSEP  hierarchy  is  revealed 

in  Section  2,3,  page  12 -B  of  this  manual. 
Subroutines  Called:  DATREF,  TRAK 

Calling  Subroutines:  MAPSEP 


Logic  Flow: 


See  macrologic  listing 


560 


DATREF-1 


3.7.1  Subroutine:  DATEEF 

gurpose;  To  initialise  REFSEP  parameters  and  the  trajectory  propagator. 
Remarks : Proper  initialization  of  the  scheduler  requires  two  consecutive 

calls  to  subroutine  SCHED.  Also,  TRAJ  is  called  only  to  in- 
ialize  parameters  not  to  propagate  the  trajectory. 


Input /Output: 
Variable 

Input/ 

Output 

Argument/ 

Common 

GAINCR 

0 

C 

I6AIN 

0 

C 

NCNTE 

0 

C 

NCNTG 

0 

C 

NCNTP 

0 

C 

NGNTT 

0 

C 

NEIGEN 

0 

C 

•NGUID 

0 

c 

NPRED 

0 

c 

NTHRST 

0 

c 

ICALL 

0 

c 

INTSG 

0 

c 

KARDS 

I 

c 

Definition 


GODSEP  variables  which  are  de- 
faulted in  DATREF  to  avoid  in- 
correct computations  in  sub- 
routine SCHED.  None  of  these 
variables  is  relevant  to  execu- 
tion of  REFSEP. 


Flag  used  to  initialize  TEAJ. 

Flag  indicating  the  equations  to 
be  integrated  in  TEAJ. 

Number  of  print  schedule  cards . 


r J L: 
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3,7,2  Subroutine;  DETAIL  (IT) 

Purpose;  To  print  trajectory  information,  at  the  times  designated  on 
the  formatted  schedule  cards. 

Remarks : The  blocks  of  trajectory  infotmation  to  be  printed  are  cued 

by  the  print  code  'which  is  stored  in  the  variable  IT,  A 
discussion  of  the  print  code  may  be  found  in  the  User's 
Manual j Section  2.5,  page  52-B, 


Input /Out put: 
Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

APERT 

I 

C 

1 

Gravitational  acceleration  vectors 
due  to  the  perturbing  bodies. 

AT0T 

I 

C 

Total  differential  acceleration 
vector. 

B 

I 

C 

Magnitude  of  the  B-vector. 

BDR 

I 

G 

B • R 

BDT 

I 

G 

B • T 

B0DY 

I 

C 

Hollerith  label  of  the  planets  in- 
cluded in  the  integration. 

BV 

I 

C 

Unitary  B-vector. 

CA 

I 

c 

Closest  approach  radius  computed 
in  BPLANE. 

ECC 

I 

c 

Eccentricity, 

EP0CH 

I 

c 

Launch  epoch 

FI 

I 

c 

Hyperbolic  anomaly 

IPRI 

I 

c 

Flag  used  to  locate  information 
about  the  primary  body, 

ISTEP 

I 

c 

Number  of  integration  steps  taken 

IT 

I 

A 

Print  code. 

ITP 

I 

c 

Flag  used  to  locate  information 
about  the  target  body. 
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Variable 

Input/ 

Output 

Argument / 
Common 

Definition 

I^GH 

1 

C 

Blank  common*  location  of  the  step 
size . 

L0CM 

I 

C 

Blank  common  location  cf  the  S/C 
mass . 

UgJCYT 

I 

C 

Blan^’  common  location  of  the 
temporary  integrated  solution. 

1-IPLAN 

I 

C 

Number  of  bodies  included  in  the 
integration. 

KPRI 

I 

C 

Planet  code  of  the  primary  body. 

NRECT 

I 

C 

Number  of  rectifications  executed 
during  the  trajectory  integration. 

NTP 

I 

C 

Target  planet  code. 

NTPHAS 

I 

c 

Number  of  the  current  control  phase. 

gJMEGA 

I 

c 

Longitude  of  the  ascending  node. 

PV 

I 

c 

Unitary  peripoint  vector. 

QV 

I 

c 

Unitary  peri-velocity  vector. 

HAD 

I 

c 

Angular  conversion  constant 
(radians  to  degrees). 

SMA 

I 

c 

Semi -major  axis. 

S0ME6A 

I 

c 

Argument  of  perlapsis. 

sv 

I 

c 

Unitary  hyperbolic  excess  velocity 
vector. 

TA 

I 

G 

True  anomaly. 

TAlti 

I 

C 

Angle  between  B-vector  and  T**axis, 

TCA 

1 

c 

Time  of  closest  approach  computed 
in  BPLANE. 

TCURR 

I 

G 

Current  event  tinte, 

TEVWT 

I 

C 

Current  trajectory  time. 
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Variable 

Input / 
Output 

Argument/ 

Common 

Definition 

THEACC 

1 

C 

Acceleration  vector  due  to  thrust. 

TM 

I 

C 

Time  conversion  constant  (days  to 
seconds) . 

TSI 

I 

c 

Time  of  SOI  crossing  as  computed 
in  BPLANE . 

VENC 

I 

« 

c 

Reference  conic  position  vector. 

UP 

I 

c 

* 

Position  vectors  of  all  bodies 
included  in  the  integration. 

UREL 

I 

G 

Position  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
integration. 

UTRUE 

I 

C 

S/C  position  vector  relative  to 
primary  body. 

VGA 

I 

C 

Velocity  at  closest  approach  as 
computed  in  BPLANE, 

VENC 

I 

c 

Reference  conic  velocity  vector. 

VHP 

I 

c 

Magnitudue  of  hyperbolic  excess 
velocity. 

VP 

I 

c 

Velocity  vectors  of  all  bodies  con 
sidered  in  the  integration. 

VREL 

I 

c 

Velocity  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
integration. 

VTRUE 

I 

c 

S/C  velocity  vector  relative  to 
the  primary  body. 

m 

I 

c 

Unitary  momentum  vector. 

XING 

I 

c 

Ecliptic  inclination. 

xmean 

I 

c 

Mean  anomaly. 
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Local  Variables: 

Variable 

Definition 

AT0TM 

Magnitude  of  total  differential  acceleration 
vector. 

BVEC 

B-vector . 

DJ 

Julian  date  of  current  trajectory  time. 

IB0D 

Primary  body  code  for  BPLANE  calculations. 

KRAK 

Intermediate  print  code. 

LB0D 

Location  of  IB0D  in  the  NB  array  (i.e. 
IB0D  = NB  (LB0D)). 

prv 

Peri -point  vector. 

PW 

Peri -velocity  vector. 

UA 

Delta-position  vector  and  delta-velocity 
vector. 

UAM 

Magnitude  of  delta-position  vector. 

UPM 

Heliocentric  position  magnitudes  of  bodies 

considered  in  the  integration. 

» 

UR 

Unitary  position  vector  of  the  S/C  relative 
to  the  primary  body. 

tn,^ 

Unitary  velocity  vector  of  the  S/C  relative 

to  the  primary  body. 

VAM 

Magnitude  of  the  delta -velocity  vector. 

VH 

Hyperbolic  excess  velocity  vector. 

VPM 

Heliocentric  velocity  magnitude  of  bodies 
considered  in  the  integration. 

Subroutines  Galled: 

BPLANE, 

C0PY,  PRINT!,  TSCHED,  UD0TV,  UNITV,  VECMAG 

Calling  Subroutine: 

REFSEP 

fiommon  Blocks: 


(BLANK),  CdHICS,  C0NST,  EDIT,  SCHEDK  TARGET,  TIME, 
TRAJl,  TRAJ2,  Wte 
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3.7.3  Subroutine:  TEAK 


Purpose: 


To  control  the  point  to  point  (event  time  to  event 
time)  integration  of  the  trajectory  propagator. 


Remarks:  The  event  times  which  are  input  into  the  trajectory 

propagator  are  obtained  from  the  scheduling  subroutine 
SCHED.  After  TRAJ  performs  the  integration  to  the 
desired  event  time,  subroutine  DETAIL  is  called  to 
print  detailed  trajectory  information. 

Input /Output : 


Input/  , Argument/ 
Variable Outpx:it  Common 


Definition 


BDR 

0 

c 

B . R 

BDT 

0 

c 

B . T 

CA 

0 

c 

Glosest  approach  radius  as  computed 
in  BPLANE 

EGG 

0 

c 

Eccentricity 

ISTCJP 

I 

c 

Desired  trajectory  termination  flag 

ITP 

I 

c 

Target  body  index  (i.e.  NTP=NB(ITP)) 

KUT0FF 

0 

c 

Actual  trajectory  termination  flag 

LABEL 

I 

c 

Hollerith  labels  for  terminal  condi- 
tions 

L0GM 

I 

c 

Blank  common  location  of  S/C  mass 

KPRI 

1/0 

c 

Primary  body  code 

WTP 

I 

c 

Target  body  code 

0MEGA 

0 

c 

Longitude  of  ascending  node 

RAD 

I 

c 

Angular  conversion  constant  (radians 
to  degrees) 

RGA 

0 

c 

Radius  of  closest  approach  computed 
in  Tl^ 

SM 

0 

e 

Semi^major  axis 
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Variable 

Input/ 

Outuut 

Argument/ 

Common 

Definition 

S^GA 

0 

C 

Argument  of  periapsis 

TA 

0 

C 

True  Anomaly 

TCA 

0 

C 

Time  of  closest  approach  com- 
puted in  BPLANE 

TCURR 

0 

c 

Current  event  time 

tevnt 

0 

G 

Next  event  time 

m 

I 

C 

Time  conversion  constant  {.days 
to  seconds) 

TRCA 

0 

C 

Time  of  closest  approach  com- 
puted in  TRAJ 

TSI 

0 

C 

Time  of  S0I  crossing  computed 
in  BPLANE 

TSOI 

0 

C 

Time  of  S0I  crossing  computed 
in  TRAJ 

TSTART 

I 

c 

Trajectory  start  time 

TST0P 

0 

c 

Trajectory  stop  time 

UREL 

0 

c 

Position  vectors  of  S/C  relative 
to  all  bodies  considered  in  the 
Integra  tj.on 

UREI^ 

0 

G 

Magnitudes  of  UREL  vectors 

VGA 

0 

c 

Velocity  at  closest  approach 

VHP 

0 

c 

Hyperbolic  excess  velocity 

VREL 

0 

c 

Velocity  vector  of  S/C  relative 
all  bodies  considered  in  the  in- 
tegration 

VRELM 

0 

c 

Magnitudes  of  VREL  vectors 

XICA 

0 

c 

Inclination  of  orbit  relative  to 
target  body 

XING 

0 

c 

Inclination 

XMEAN 

0 

c 

Mean  anomaly 
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Local  Variables; 

Variable 

BELT 

IST0PN 

JEVKT 

K0FF 

MISS 

Subroutines  Called; 
Calling  Subroutine: 
Common  Blocks; 


Definition 


Time  between  events 

Hollerith  labels  of  requested  stopping 
conditions 

Print  code 

Hollerith  labels  of  actual  stopping 
conditions 

Flag  indicating  whether  the  target  body 
is  the  primary  body  at  the  trajectory 
end  time 

BPIANE,  DETAIL,  SCHED,  TRAJ 
REFSEP 

(Blank),  C0NST,  EDIT,  EPHEM,  PRINTH,  SCHEDI, 
SCHEDR,  TARGET,  TIME,  TRAJl,  TRAJ2,  H0RK. 
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3.7,4  Subroutine ; 
Purpose; 

Method; 


Input /Output; 

Input/  Argument/ 

Variable Output Common Definition 


ECEQ 

I 

C 

Equatorial  to  ecliptic  transr 
formation  matrix 

ELVMXM 

I 

c 

Minimum  elevation  angle 

GEZER0 

I 

c 

Greenwich  hour  angle  at  launch 

I0BS 

I 

c 

Index  of  astronomical  observatory 
in  STALGC 

ITP 

I 

c 

Index  of  target  planet  in  KB 

MPLAN 

I 

C 

Number  of  bodies  considered  in 
the  integration 

MB 

I 

c 

Vector  identifying  bodies  con- 
sidered in  the  integration 

NSTA 

I 

c 

Number  of  S/C  tracking  stations 

NTP 

I 

G 

Target  planet  code 

0MEGAG 

I 

C 

Earth  rotation  rate 

PI 

I 

G 

7T 

RAD 

I 

C 

Angular  conversion  constant 
(radians  to  degrees) 

STAI^C 

I 

G 

Station  location  coordinates 

TCURR 

I 

C 

Current  event  time 

ISCHED 

To  compute  and  print  S/C  tracking  information 

S/C  rise  and  set  times  are  computed  for  a selection 
of  tracking  stations.  The  primary  assumption,  which 
has  been  made  to  simplify  the  computations,  is  that 
the  S/C  moves  very  slowly  across  the  celestial  sphere. 
Thus,  the  rise  and  set  times  are  poor  approximations 
for  near-Earth  orbital  missions. 
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Variable 

Input/ 

Output 

Argument/ 

Common 

Definition 

TK 

I 

G 

Time  conversion  constant  (days 
to  seconds) 

II? 

I 

C 

Heliocentric  positions  of  bodies 
considered  in  the  integration 

UEEL 

I 

C 

Position  vectors  of  S/C  rela- 
tive to  bodies  considered  in 
the  integration 

URELM 

I 

C 

Magnitudes  of  UREL  vectors 

V? 

I 

C 

Heliocentric  velocities  of 
bodies  considered  in  the  In- 
tegra tion 

VREL 

I 

C 

Velocity  vectors  of  S/C  relative 
to  bodies  considered  in  the  in- 
tegration 

VEELM 

I 

C 

Magnitudes  of  VREL  vectors 

Local  Variables; 


Variable 

Definition 

AZHUTH 

Asimuth  of  S/C  relative  to  the  tracking 
station 

DEC 

Declination  of  S/C 

ELEV 

Elevation  of  S/C 

GECSTA 

Geocentric  ecliptic  station  coordinates 

GEQSTA 

Geocentric  equatorial  station  coordinates 

GHA 

Greenwich  hour  angle 

GHZER0 

Greenwich  hour  Angle  at  launch 

LAMDA 

Right  ascension  minus  Greenwich  hour 
angle 

RANGE 


S/C  range  from  Earth 
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I 


Variable 

Definition 

RHO 

S/C  range  vector 

RISE 

S/C  rise  tiine  at  each  station 

RRATE 

S/C  range  rate  from  Earth 

RIA 

Right  ascension 

RVIANG 

Range -velocity  included  angle 

SESANG 

Sun-Earth -S/C  angle 

SET 

S/G  set  time  at  each  station 

SIKELV 

sin  (ELV) 

SLAT 

Station  latitude 

STATE 

S/C  equatorial  state 

TM 

Time  conversion  constant  (days  to  seconds) 

XW0PI 

2 X 7T 

UPM 

Magnitude  of  planet  position  vectors 

Subroutines  Called: 

CYEQEC, 

, MMATB,  SUB,  UD0TV,  UNITV,  UXV,  VEGMAG 

CallinK  Subroutine: 

DETAIL 

• 

Conanon  Blocks: 

C0NST, 

W0RK 

EDIT,  SCHEDR,  TIME,  TRAJl,  TRAJ2,  TRKDAT, 

LoEic  Flow: 

See  listing 
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